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FOREWORD 


This report is submitted in three volumes to the National Aero- 
nautics and Space Administration, Marshall Space Flight Center, 
in partial fulfillment of the requirements of Contract NAS 8- 
29622 . 

The objective of this contractual effort has been to define per- 
formance requirements, preliminary designs, and development 
program plans for an airborne recovery system for the Space 
Shuttle Solid Rocket Booster, with minimum total program costs 
being the primary selection criterion. 


Volume I, entitled Technical Report, Space Shuttle Solid Rocket 
Booster Recovery System Definition, contains the results of all 
analyses performed during the study term to define the performance 
requirements, preliminary designs, and development- program plans 
for the SRB Recovery Subsystem. 

Volumes II and III contain user's instructions for two computer 
programs developed In support of the contract technical studies . 
Volume II is entitled Solid Rocket Booster Water Impact Monte 
Carlo Computer Program and Volume -III is entitled Solid Rocket 
Booster Water Impact Loads Computer Program . 
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SUMMARY 


The HD 220 program was created as part of the Space Shuttle Solid 
Rocket Booster Recovery System Definition under Contract NAS 8- 
29622. The model was generated to investigate the damage to SRB 
components under water impact loads. The random nature of environ- 
mental parameters, such as ocean waves and wind conditions, neces- 
sitates estimation of the relative frequency of occurrence for 
these parameters. The nondeterministic nature of component 
strengths also lends itself to probabilistic simulation. The 
Monte Carlo technique allows the simultaneous perturbation of 
multiple independent parameters and provides outputs describing 
the probability distribution functions of the dependent parameters. 
This allows the user to determine the required statistics for each 
output parameter. 

The program uses 65,000 octal core locations and has a running 
time of approximately 20 seconds per terminal descent velocity 
for 1000 Monte Carlo trials. 



1.0 


INTRODUCTION 


The determination of SRB attrition resulting from water impact 
required the development of a statistical model of all parameters 
contributing to the water entry conditions. The random nature 
and non-Gaussian distributions of many of these parameters made 
the problem well suited to the Monte Carlo statistical method. 

The SRB Water Impact Computer Program developed during the study 
is documented in this volume. The computer program is written 
in FORTRAN IV language for the CDC 6400/6500 series digital com- 
puter. The cognizant engineers are Messrs. K. E. Bassett and 
M. G. Brunschwig. The computer programming was performed by 
Mr. W. S. Lakins . 


1 



2.0 


PROGRAM DESCRIPTION 


The Monte Carlo water entry model uses probability distributions 
to describe such environmental parameters as water current, 
water mass velocity, and wind velocity. In addition, recovery 
system parameters are modeled in terms of their probability dis- 
tributions: parachute terminal descent velocity, parachute 

translation velocity due to lift, parachute rotational velocity 
(at SRB nozzle), oscillation angles of parachute and SRB , rotation 
rates, and retromotor parameters, if used (Figure 2-1). 

The Monte Carlo analysis consists of randomly selecting the 
parameters which influence water entry conditions from their 
respective probability distributions, vectorially combining these 
parameters at the water entry point, and determining impact velocity 
and angle distributions that define the entry loading conditions 
on the SRB. 

The macrologic for the computer model is illustrated in Figure 
2-2. Random number generators (seeded by clock time) are used 
to select environmental and physical parameters from their cumula- 
tive probability distributions. Each input parameter is selected 
using a different random number to assure a realistic unbiased 
simulation. The parameters are vectorially combined using 3-D 
kinematic equations to obtain the vertical (V^) and horizontal 

(V ) components of the impact velocity. The impact attitude 
(9^.) is the angle between vertical and the projection of the SRB 
centerline into the impact (V.^, V^) plane. Probability distribu- 
tions for V , V , and 6 are outputs of the simulation. These 
V H I 

distributions allow calculation of impact statistics such as the 
mean and standard deviation for each parameter. 

Five structural components are considered in the load analysis; 

forward skirt, aft skirt, nozzle (with or without extension), 

SRB case and the aft dome. Loads are input as trivariant tables 

in terms of V , V , and 6 , The model uses linear table lookup 
V H 1 

to perform trivariate interpolation for the component loads. The 
structural strength, being a nondeterministic quantity, is selected 
randomly from the component strength distributions that are input 
as data statements. Except for the SRB case, component attrition 
occurs when the load exceeds the strength. The SRB case is assumed 
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Figure 2-2 Monte Carlo Analysis Macrologic 









to rupture and sink when, a 20% overload occurs during SRB slap- 
down. Attrition of two case segments is assumed for overloads less 

than 20%. 

This procedure determines attrition for one randomly selected set 
of parameters. To obtain reliable statistics, the procedure is 
repeated for many sets of parameters. The model has storage 
capability for 2000 Monte Carlo trials of a given terminal descent 
velocity. The outcome (attrition) for each structural component 
is accumulated over the total number of trials and used to formulate 
the attrition statistics for each V TD' 

A simplified cost estimate procedure using the refurbishment and 
component replacement costs serves to assess the minimum SRB struc- 
tural attrition versus impact velocity. When component refurbish- 
ment costs are multiplied by the attrition probabilities and 
summed over all components, a resultant SRB refurbishment cost 
curve is obtained as a function of terminal descent velocity. 


3.0 


SUBROUTINE DESCRIPTIONS 


3.1 SRB 

This routine provides control over the entire program. Input 
data is read in Namelist format (described In Section 4.0). This 
routine initializes all variables and calculates the three impact 
parameters (horizontal velocity, vertical velocity, and impact 
angle) . 

The flow chart for the SRB routine is shown in Figure 3-1. Each 
input terminal descent (design) velocity (V^) is used in turn to 

determine impact statistics. The routine contains coding for 
both planar and three degrees of freedom (3 DOF) calculations. 
Random number generators are used to calculate parameter values 
which are added at the impact point to determine impact velocity 
and angle. 

This routine also calls LOADS to determine component failures. 
After all the Monte Carlo trials for a given have been run, 

the next is read and a new set of trials are run. When all 

statistics for each V have been accumulated, HIST is called to 

create histograms. The cost (per SRB) is calculated for each 
V and COSTPLT is called to plot the results. 

3.2 WAVE 

This routine calculates the wave direction correlated to the wind 
direction. An input probability distribution is used for the 
calculation. 

3.3 SLAP 

This routine determines if damage has occurred to the SRB case 
under conditions of maximum slapdown. The routine is called from 
LOADS and takes the actual pressure (P ) generated from the maxi- 

cl 

mum slapdown condition and generates a critical pressure (P ) from 

a strength probability distribution. Three conditions are 
possible : 
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W STOP 


Figure 3-1 Flow Chart for Subroutine SRB 












1 ) 


P > 1.2 P results in the SRB rupturing and sinking; 
a — c 


2) P < p < 1.2 P results in damage to two case segments; 
c — a c 


3) P < P results in no damage, 
a c 

Capability exists for using a bivariate case strength distribution 
in terms of load and pressure but case strength is presently in- 
put only in terms of SRB case hoop moment. 

3.4 ST REN 

This routine is called from LOADS and makes a load/strength 
comparison to determine if failure has occurred to any of the 
other components (nozzle, aft dome, aft skirt, and forward skirt). 

3.5 HIST 

This routine is called from SRB and generates a histogram for many 
of the variables. HIST calls SORX to sort the array of values in 
ascending order and then uses 5% increments of the number of 
trials (NUMMC) to generate a 20-point histogram representing the 
probability distribution for each variable. The routine also 
calculates the parameter statistics such as: mean, standard 

deviation, median, maximum and minimum values, and the 99% value. 

3.6 PLOT 

This routine is called from SRB and plots the probability distribu- 
tions for various parameters. 

3.7 WIND 


This routine calculates the wind velocity (and direction) at three 
altitudes (1 km, canopy height, 19.3 m reference) using a. cor- 
related bivariate Gaussian distribution of zonal and meridianal 
wind in the recovery zone (NASA YA-25-23) . The calculation is 
made using a Guassian random number generator and a covariance 
matrix of coefficients for wind components for each month of the 
year. Variation of wind with altitude is calculated using 
equations obtained from NASA (YA-62-72) . 
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3.8 SORX 

This routine takes an input array of values, sorts it into ascend- 
ing order and replaces it in the original array . No additional 
computer core is required to perform this sort. 

3.9 LOADS 

This routine is called from SRB and contains (as data statements) 
all the trivariate load tables (in terms of V^, 8^) and 

strength probability distributions for the SRB components. Com- 
ponent loads are determined from the impact variables and SLAP 
(for the case slapdown damage) and STREN are called to determine 
the component damage which updates a damage condition summary 
array. LOADS also collects (in arrays) parameter values that are 
output as statistics by HIST. 

3.10 TRIVAR 

This routine performs a trivariant linear interpolation for three 
impact angles, three horizontal velocities and five vertical ve- 
locities using the tables in LOADS. 

3.11 UR IT 

This output routine is called from SRB. It outputs the damage 
condition summary as well as summary load data. This includes 
the total attrition for each component as well as percentage 
damage. 

3.12 XYZ 

This routine fits a biparabolic function through the points input 
to it. It is called from COSTPLT. 

3.13 EVAL 

This function is called from COSTPLT and uses the output from XYZ 
to interpolate between known points. 

3.14 COSTPLT 

This routine is called from SRB. COSTPLT plots the cost for each 
terminal design velocity and interpolates between them to draw a 
smooth curve. This routine also terminates the run. 
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4.0 


INPUT FORMATS 


Input to the program is done through namelist type input. The 
format for namelist is a $ in column 2, followed immediately by 
the namelist name and at least one blank, then the parameters are 
defined and separated by commas. A sample input listing is given 
in Section 6.0. Column 1 is reserved for comment cards using a 
C (or P in the case of the namelist) to allow it to be printed: 

Column 


1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 

P$INPUT1 I X X « 0 

The terminator of the namelist is a $ which follows the last input 
value . 

4. 1 Namelist INPUT1 :, 

This is the first namelist in the input stream. 

NUMMC the total number of Monte Carlo trials (maximum 2000) 

to be calculated per terminal design velocity; 

NUMVTD the total number of terminal design velocities (maximum 

10 ) 

IXX a flag to indicate whether nozzle moment uses table 

data for an SRB with nozzle extension or without nozzle 
extension: 

If IXX = 0, no nozzle extension is used; if IXX ^ 0, 
nozzle extension is used. 

IRANF flag to indicate whether the user wants a repeatable 

random sequence or a nonrepea table sequence. 


4.2 Namelist INPUT 2 : 

W1IN maximum limit of distribution for u)^, the rotation 

rate of the parachute about vertical (rad/s). The 
distribution is uniform from -W1IN to +W1IN. 
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W2IN 


maximum limit of distribution for the rotational 

rate of the SRB about the parachute centerline (rad/s). 

The distribution is uniform from -W2IN to +W2IN. 

THUN distribution limit for 0 , the oscillation angle of the 

parachute centerline to the vertical (rad) . The distribu- 
tion is uniform from 0 to THUN. 

TH2IN distribution limit for 0^, the oscillation angle of the 

SRB centerline to parachute centerline (rad) . The 
distribution is uniform from 0 to TH2IN. 

Note: For planar problems 0^ and are combined and 

an arcsine distribution is available in the coding. 

VPTIN mean for parachute translation velocity due to lift 

(m/ s) . 

VPTSIG standard deviation for parachute translation velocity 
calculations (m/s). 

XLP length of the parachute shroud lines in meters. 

VCKNT mean value of water current velocity (m/s). 

VCRNTSI standard deviation of water current velocity (m/ s) . 

PTHW array that has probability distribution for wave direction 

(9 values) . 

THW1 array of angles (rad) corresponding to the probability 

values in PTHW (9 values) . 

Sample array input (can be all in one sequence or broken up as 
shown) : 

Column 

1 2 3 4 5 6 7 8 9 10 11 12 13 14 

P T H W r~l ) = 3 * ! 5 » 

P T H W ( 4 ) = 6 *1 . > 
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4.3 


Namelist COSTS 


COST array with cost of refurbishment for SRB components. 

C0ST(1) cost of refurbishment for condition of no component 
damage. 

C0ST(2) cost for replacement of sunk SRB (new SRB Cost) 

The following are delta costs between new item purchase and 

refurbishment cost: 

COST (3) delta cost for case damage (2 segments) . 

C0ST(4) delta cost for forward skirt. 

COST (5) delta cost for nozzle. 

COST (6) delta cost for aft dome. 

C0ST(7) delta cost for aft skirt. 

4.4 Namelist INPUT 3 

VTD1N mean value for calculation of the terminal design velocity 

in m/s. 

VTDSIG sigma for calculation of the terminal design velocity 
(m/ s ) . 

THETAMR distribution limit for retromotor thrust vector mis- 
alignment (rad). The distribution is uniform from 
-THETAMR to +THETAMR. 

DVRMEN mean value of retromotor AV (m/s) . 

DVRS I G standard deviation for retromotor AV (m/s). 

Namelist INPUT 3 is repeated NUMVTD times with the mean and sigma 

for each terminal velocity to be investigated. 
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4.5 


Input File 


7 8 q (alpha card) 

$ INPUTl NUMMC = 2000, NUMVTD =2 , . . . $ 

$ INPUT 2 W1IN = 0.01, $ 

$ COSTS C0ST(1) = 0.826E+6 $ 

$ INPUT 3 VTDIN = 2.0, VTDSIG = 0.5 $ | Repeat for each 

$ INPUT 3 VTDIN =3.0, VTDSIG =0.07 $ ) (NUMVTD cards) 

/ Q (beta card) 
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preceding page blank not filmed 


5.0 PROGRAM LISTING L E V r L 6C-27-19 39/G4/7.J. 


PROGRAM SR 6 (INPUT ,CUTPUT ,FIL*PL » Tfi FEE- INPU T * T APEB=C ITPL T ) 
r- « * 

c #*** vtp imlE off t nitton^ **+ + 

C W1 ROTATION P AT F ABOUT PARACHUTE CL 

C W2 POTATION RATE ( SRB ABOUT CHUT r Cl) 

C TH1 • OCClLlATIoT ANGl r (CHUTc CL TC VERTICAL) 

C T H2 OCC ILLATION ANGLE (SRB CL TO CHUTE CL.) 

C VTO T ERMINAL Cl SCENT VELOCITY 

C VPT TRANSLATIONAL V-LOCITY 

C VWINO — VELOCITY CF WIND 

C VWM VtLOCTTY CF WAVE MOTION 

C THWH (DIRECTION CF WAVE MOTION 

C THOU E -- OTRECTION CF CURRENT (PEPP TC T PWM) 

P PHI ROTATION AM5LF OF CHUTE 

C PH? ROTATION ANGLE OF SRB 

r PST WAVE HASS ANGLE 

C TRFTlR - MISS ALT GN NF NT OF RFTRO THRUST IN IMPACT PLANE 

C ''VR VFLOCITY CF PFTRO ( DELTA VELOCITY ) 

c * - - - 

000002 OIM r NPTON PTHW(R) ,THWi(9) , t H IMPAC ( 2 30 0 ) ♦ 

1 VHOFI7N (2C0-C ) , VRTICAL C200C) ,MON(12) i 

1 CSTVT(IO) ,TER(10) »COST<7) 

C - — 

c **** COMMON DEFINITIONS *+** 

C COMMON / T TTL r / 

C ITTTlF TITLES FOR PLOTS AND/OR PRINT-OUT 

r COMMON / OAhAG / 

C IFAL DAMAGE CONDITION COUNTER FOR VELOCITl 

C IFAL(I) — CO UN TF° FOR NO CAMAGf 

C TFALC?) — COUNTER FOR SINK AGE 

C IRAL (7) — COUNTER FOR CA$F DAMAGE 

C IFAL (M — COUNTER FOR FORWARD SKIRT 

C IFAL (?) — COUNTER FOR NQZ7LE 

C IFAt ( F ) — COUNTER FOR A^T DOME 

C TFAL ( 7 ) — COUNTER FOR AFT SKIPT 

C POMMON / NUMBER / 

C NUMKO TOTAL NUMBER OF MONTE CARLO TRIALS 

C PQMMTN / STAT / 

C STAT STATISTICS FOR PRINT OUT 

C COMMON / GSTDAT / 

C PFR PER CENT OF TCTAL TRIALS WITH EACH CAHAGE 

C CON PI T I ON 

C COMMON / ONDTMS / 

C FV1Z IMPACT - VERTICAL VELOCITY FOR TRIAL 

c FVH IMPACT - HORIZONTAL VELOCITY FOR TRIAL 

C DTHI IMPACT - ANGLE FCR TPI*L 

c VVEl T ABL c VALUES FOR VERTICAL VELOCITY 

C VHDR TABLE VALUES FCR HORIZONTAL VFLOCITY 

C THETA -- TABLE VALUFS FOR IMPACT ANGLF 

C COMMON / MAYSIF f 

C ACTPFESS - ARRAY FOP STORAGE OF ACTUAL PRESSURE 

c ON C A SF 

C CRTFPESS - ARRAY FCR STORAGE OF CRITICAL PRESSURE 

C ON CASE 

C XMSAV ARRAY FOR STORAGE OF LOAD ON CASE 
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0003G2 

GO"!*? 

CCOQO? 

JCOQO? 

ocoao? 

OO'UO? 

GGCOQ? 

OOOGO? 


ocoao ? 


00000 ? 


00300? 


ocoao? 


SFi 


RUN?4 LEVEL 6C-?7-39 09/04/73. 


r 

c 

r 

C 

c 


c 

r 

C 

c 

c 

r 

c 

c 

r 

C 

C 

c 

r 

c 

c 

r 

c 

c 

c 

c 

c 

c 

r 

c 

r 

C 

c 

c 

r 


FXNSAV — - AP°AY FOR STORAGE OF LCAC ON CAS C 
FOR C ASF FAILURE 

FACTIS ADRAY FOR STORAGE OF ACTUAL FRES$UR C 

ON CASE FOR FAILURE 


COMMON 

✓ 

TIT L r 

/ 

ITtTlE( ft!) ) 

COMMON 

/ 

damag 

/ 

IF AL (7) 

COMMON 

/ 

STAT 

/ 

ST AT { 24 ) 

COMMON 

/ 

NUM pcR 

/ 

NUMMC 

common 

/ 

CSTDAT 

/ 

FEP(7) 

COMMON 

/ 

CNOTNS 

/ 

r VIZ ,FVH ,OTHl , V VEL ( 5 ) , VHCP (3 ) , 

THFTA ( 3) 

COMM CN 

/ 

MAXSLP 

/ 

ACTPRES (200 Q) ,CRTPRES (? G00 ) ,VNS4V(ZC39> 


/ 

INPUT1 

/ 

NUMMC , NUM VTD ,TXX , IR ANF 


NUMC -- TH C TOTAL NUMPER OF MONTE CARLO TRAILS <?G00 MAX) 

NUM\*TO - t HE NIJMREP OF TERMINAL DESIGN VELOCITIES (10 MAX) 

IF IXV TS NON-ZERO, HAVE NOZZLE EXTENSION 

IF 1RANF IS NCN-ZERC. CREATE REPEATABLE RANDOM SEQUENCE 

N A M 1 " 1 1 FT / INPUT? / N 1 1 N ,W2IN ,7H1IN ,TH2JN ,VPTlM , VFTS TG , 

Wl T N - LNIFOPM DISTFIPUTTON FOR HI (-W1IN TO NUN) 

W2Ih - UNIFORM OTS TP I PUT ION FOR W? (-W2IN TO W2IN) 

THj TN - UMFOPM O I S IP 1 PIJT I ON FOR THl (O TO TH1TN) 

TH? TN - UNTFOF* DTSIRIPUTION FOR TH2 (C TO TH2TN) 

VRTTN - MFAN FCR TRANSLATIONAL VELOCITY 
VDTSTG - SIGMA FOP TR ANiSATI ONAL VELOCITY 


1 


F7HW ,THW1 , XLP , VCRNT ,VCRNTSI * 


otmw - A RF AY WITH FFOfcAlILI TY RANGE FOR UNO DIRECTION 

THw 1 - ARRAY LHICH CCPRESPONDPS TO PTHH VALUES FCR WAVE DIRECTION 

XLP - LENGTH OF PARACHUTE SHROUD LINES 

VC RN T - MEAN CURRENT VFLOCITY 

*"■ VCR'ITSI - FICKA FOP \/C RNT 


? 


THETAMR , OVRMEN ,OVRSIG 


THE 1 A M R - UNTFCRM OISTPI9UTTON FOP THFTAC (-THETAMR TO THETAMR) 

DV<MEN - MEAN FOR fETRO VELOCITY ( OFLTA VELOCITY ) 

--- DVR? IF - SIGMA FOR RETRO VELOCITY ( OFLTA VELOCITY ) 


NAM c lT ST / IN PUT 3 / V'TOyN ,VTDSIG 

- — VTQIN - Mf AN VALUE FOP DESIGN VELOCTTY 
VTOTIG - SJGMA FqR V/TOTN 


NAMRLICT / COSTS / ro^T 

COST AFFAY FOP PFFURRI SH MENT COST FOR DAMAGE CONDITIONS 

ORDER MUST EE SAME AS ORDER IN FP1NT-OUT 
(SEE SUPROLTINR WRIT) 

DATA TW0PHI ,YLS ,FTM , RAO / 6.?l?3i84 ,40.2 ,3.28 ,57.3 / 
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00000? 
(31 0002 
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000005 

000006 
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000013 
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0 0 CO 21 
000022 
000022 
000023 
0 C 0 0 2 3 
0 C0O24 
000024 
000025 
00002^ 
000026 
000027 
000030 
001031 
OCOO 31 
000332 
0 COO 33 
000133 

000034 
C 0 10 34 
000035 
000040 
OC0343 
0 00046 
0 G 0 0 5 1 
000053 
000057 
000160 
030061 
000065 
000166 
000067 
000173 
000074 
000075 
000103 
000104 
000104 
000105 
000106 
000110 


«P‘1 RUN? 4 LEVEL 60-27-19 09/04/7’. 


OATA 

V V EL 

/ 

40. 

,6C . 

,80 . 

,ior. 

,l?c./ 

nAT A 

VH CP 

/ 

G. 

»?5. 

,50. 

/ 


OA T A 

T H ETA 

/ 

-10. 

1 0 • 

,10. 

/ 



R^ftP , INF1ITU 

C L0P T 9 FOR RFPETARLE S EOUENO £ 

IF(IR4MF ,fO, 0) PC TO 1 
X r ^ A NF ( «• 1 0 0 > 

CO T C 1 

1 n ALL TTME(M) 

y s '’ANF(-N) 

5 ''ALL m. K2HNP , ?HLF ) 

C 

P t hp fallowing «lcck of coo c is to zepo variables that the comput aticn 

f OF AO; ** O FMENTF C OIJT 


ui = C, 

W 2 - 0. 

T H1 - 0. 

PH 1 - 0 . 

THP “ C. 

v dt - r. 

V"TX = 0. 

'fox Y = C. 

^THl = C. 

PTMl ~ 1. 

SOH1 = C. 

C°H1 = 1. 

A MULT - 0, 

ATE**' 1 = 0. 

v°ox . = P. 

VfPDY = C. 

VP07 “ C, 


c NO OF Bl C r K 

KNTM1 - C 

KMTMIO = 0 

' PFA0{5, INPUT?) 

P^AO IF, POSTS) 

VNC = NUMMC / 12. 

CALL MVELC , PTHW ,THW1 ,X ,X ) 

10 KN 7 VTH = KNTVTO + 1 

IFLKM'Vrp .pi, NUMVTr) CALL COSTPL T (CSTVT ,NUMVTC ,T£P > 

TFAtl - 0 

KUTHI = 0 

no 15 T=1,12 
HONf T> = 0 

15 CON T 1N<r 

"0 i' F T -l»7 
I F A L ( I ) = 0 

17 CONTINUE 

OO 11 T - 1 ,24 , 7 
ST A T l T ) = 0. 

ST A T ( T +1 ) = 1 « 0 E +2 0 

FTAT(I+'>) = -1.0E+2Q 

18 CONTINUE 

RE a 0 (5.1 NPUT3 ) 

T e R(<MVTD) = VTOTp 
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RUN124 LEVEL 60-27-19 


0 0 0112 

?C 

kntm 

p = KNTwr f l 



030114 


TF ( K * T MO .IE. NUMMC ) GO TO 25 


0 0 0116 


WRIT 

~ <*, 10C1 > VT O T N 



0G0123 


CALL 

l*RIT(VTO T N ) 



0 00125 


W*I T 

*( 6, 1 0 021 (MON (I ) , T - 1 , 12) 



u0"133 


tfc/ntvto .nr. l) cc to 35 



0001^7 


CALL 

HtST( T HIMFAC , NUMMC , 3 

) 


000141 


CALL 

PLOT (13 ,NU«MC ,-.5 ,.l 

jTHIMFAC ) 

0C0145 


CALL 

HTST(VHORIZN , NUMMC , ? 

) 


000150 


CALL 

PLOT (7 , NUMMC ,0.0 ,2. 

, VHOR I 7N ) 

000154 

35 

call 

PIST(VRTICAL , NUMMC ,1 

) 


000157 


r ALL 

PLOT ( 1 jMIMMT , VTOI N- 10. 

f 2 « 

tVRTlCAL ) 


r 

CAL! 

h IS T ( X NS A V ,m,!N MT ,4 ) 




C 

CALL 

P L O T ( 1 9 , NUMMC ,0.3 ,7 30 0 . , 

XNSAV ) 

000165 


CALL 

t-TSKACTPPPS ,NUM*C ,5 

) 


GQ017O 


CALL 

c L O T < ?5 , NUMMC ,0. 0 ,2 00 0 . 

,6CTFRES ) 

000174 


CALL 

HISKfPTPRPS , NUMMC ,6 

> 


00*177 


CALL 

c L O T ( 31 , NUMMC ,0.0 ,?0C0,, 

CRTPOFS > 


c 

CAL 

CULATF COST FOR TERMINAL- VELOCITY 


003207 


CSTVT (XMTVTn) = 0. 



000205 


no 1 

' t-2, 7 



000212 


CSTV U XNTVTD) = CSTVT(KNTVTO) 

* PER (I) * COST (I) 

000214 

22 

CONT TNN- 



000215 


CSTV1 (XNTVTQ) - CST VI ( KNTVTO ) +( 1. - 

PE?(2) )* COST ( 1 > 

0 * Q ? 7 1 


GO TC 10 



000222 


CON T TN'! e 




r 5 

wi 

= 2. * W 1 1 tv! * PAnF(C) 

- W1TN 



C 

w? 

= 2. * W? IN' * °ANF ( 0) 

- W2TN 



c 

TH1 

= TH1 IN * RANF(IJ) 




r 

TM2 

= T H 2 I N * (RAt'^tO) - 

.5 ) 



00023? 

000232 

0 00250 
000260 


C ASSLM^ PLANAR MOTION IN WINO PLANE 


TH2 


6)) * TH2IN 


C --- 


= SIN(TMnPHI / 2. * (RANF(C) 

- T H? 10 t FOP PL ANA D ACTION IN WINO PLANE 
TH?DCT = W2IK * rCSdWOPHt / 4. * TH2 / TH2IN) 
* * SIGM1 ,paN'P(9) - .9 > 

GALL WIND (MON ,XNC , KNTMC , VHTNC , VKH 
CALL MVE(1, PTHW ,THW1 ,THWM ,THW > 


,THW , XLS f 


300264 


T H CU 9 


(TWOPHI / 2. ) * PANF (0 ) 


C 

PHI 

= 

TWOPHT * ( PANF ( 3 ) 

- . F > 


c 

PH? 

- 

T Wn pH I * PANF(0> 



c 

A F S U M P 

FLAMAR NOTION IN WINO 

PLANE 

C 0 027(3 


PH2 

= 

THW 


000272 


PSI 

= 

TWOPHI * { RANF(3> 

- .5 ) 


c 

THP 

s 

TWnphl * ( PANF (0 ) 

- .5 ) 

* o 0 7 7 7 


CALL SPNPNKVCRNT , VCRNTS I 

, VPURNT ) 


c 

*ALL ^PNRNKVPTIN ,VFTSIG , 

VPT ) 

033301 


CALL 5 P N RN1 (VTDIN , V TCSTG , 

VTO ) 


c 

cal cul 

ATE 

COMPONENTS OF THE 

WINC VFLOCTTY 

000704 


VWTNC X 

s 

VWINC * CCS(THW) 


*00307 


VWT M ( Y 

= 

VWINC * SJN(THW) 



c 

CALCULATE 

COM FOMENTS OF THE 

PARACHUTE GRIFT 


c 

V*TX 

= 

VPT * COS(THP) 



c 

VP T Y 

r 

VPT * STMTHP> 



r 

*TH1 

= 

SIN (TH1) 



c 

CT HI 


ms (TH 1 ) 



09/04/73. 


XL P I 


18 



RUN24 LEVEL 60-27-19 


09/04/7 


«P5 


000312 


ctH? 

r 

STM ( T H? ) 

0 00314 


CTM? 

= 

COS (TH?) 

000316 


^P^I 

s 

SIM (FST) 

0 0 C3?C 


rosi 

= 

roS ( FS T ) 


c 

S p M 1 

s 

SIM (PHI ) 


r 

PPH1 

= 

r OS (PHI) 

0 0C 322 


Pr»H^ 


<?IN (PH?) 

000324 


rouz 

- 

COS ( c H 2 ) 


c MO’ZLE V r LOClTv c OR SFB CONING MOTION 

C flwtJLT = W2 * STM? * XLS 

C p = $QR T ( ( ( X L F + XL S * CTH?) * STH1 

Cl + Xis ♦ STH2 * C°H2 * CTHI) ♦* 2 

C ? ( XL S * STP2 * ?°H?) ** 2 ) * W1 

C ft T EM= = AMULl * SFH2 * CT Hi 

C CALCULATE COMPONENTS CF THE SR9 ROTATIONAL VELCCITV 

C VPOX = - p * SF HI - ATEMO * CPH1 - C p H2 * SPHi * AMULT 

C VPOV = R * CPH1 - A TEMP * SP Hi f AMULT * CPH2 * C p Hl 

C VPOZ = - AHULT * S°H2 * STHi 

C NO t !Lt VELOCITY FOR FL ANAR MOTION IN WIND PLANE 

000326 VO - XLS * TH2D0T 

000330 VertZ - VF * S TNf T F?) 

0CQ333 VPOY = VP * CCS<TH2) * COS(TMW) 

.003341 V p OT = VP * fqsITH?) * StN(THW) 

0C3347 STHWM = SIM(THWM> 

000351 p T Hu M = COS ( THWM) 

000353 STClIF = SIN (THClJP ) 

000355 PTHIIS = COS ( TH r UP ) 

3C0360 *T C M D = VCUPNT 

0C0361 BT r H * = VMM * CPST 

C CALCULAT£ COHPCNEf'TS OF THE WATER VELOCITY 

0 Q 03 67 VWHX = ATP K F * C7CUR + 9TE HP * CTHWM 

030366 VWMY = AT rMD * STCUP + PTEMP * STHWM 

003371 VWMZ = V WM * SPSI 

C CALCULATE COMPONENT? OF THE IMPACT VELOCITY 

000373 VIX = VWIKOX + VPTX + VPOX - VWMX 

000377 VI Y = VWTKDY + VOTY 4- V°OY - VWMY 

000403 VIZ = VWINO? f V?TZ f VPOZ - VWMZ - VTO 

000410 VH = SORT (VIX * VIX 4 VIY * VIY» 

0 00417 A = STHI * CTH2 + CThI * STH2 * GRP 2 

000422 p = STH2 * SPH2 

000424 SL Y = A # C°Hl - E * S°H1 

000427 SLY = A * SPH1 4 P * C°H1 

0 C3 431 SL7 = STH? * CFH2 * STHI - CTH2 * CTHI 

C CALCULATE IMPACT ANCLE 

D 00435 THI = ATP N( (VIX * SL X f VIY * SLY) / (-SL 2 * VH ) ) 

C TAK; TNTO ACCOUNT VELOCITY DUE TO PETPO 

000444 I f ( t V 9^p N , E q # q, 0 ) G0 TO 40 

000446 CALL S^MPUM OVRMEN ,PVRSTG ,OVR ) 

000450 TH^ T A R = 2. * THFTAMP * (R ANF ( 0 > - .5) 

0 00455 VH = VH - OVP * SINfTHI - THETAP) 

0 0 0464 V 17 - VI 7 - DVR * COStTHI - THETAR) 

C - — CONVERT IMPACT PARAMETERS TO ENGLISH UNITS 
000473 40 FVT7 = ABS(VTZ * FTMT) 

000475 FVH = VH * FTMT 

000477 DTHT = THI * RAO 
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RUN24 LE VEl 60-P7-19 


09/04/72 


3 00501 
000503 
00050 "* 


000504 
0 00 5 C 5 
000507 
000511 
000511 


1CH 

1002 


50 


can lcaoso^ntmc ,m > 

P0OM1T (1H1 ,5Y,* TERMIAL DESIGN VELOCITY * , F6 . 2 , 2 X , *MET ERS/ 'EC * ) 


FORMAT (i fj 

»5Xt * 

NUMBER 

OP 

LAUNCH 

ES FOR EACH MONTH 

* »//, 


1 

5/, * 

JAN — 


14, 5 X , * 

EEP — *,I4,5X,* 

MAR -- 

* ,14 

2 

*x* * 

APR — 


14, /, 




3 

5X j * 

MAY — 

¥ * 

14, 5X ,* 

JUN -- *,I4,5X,* 

JUL — 

*, 14 

4 

FX, * 

AUG -- 


14, /, 




5 

5 X , * 

*£P — 

* 

14, 5X ,♦ 

OCT -- * ,T4,5X,* 

NOV -- 

*>T4 

6 

5*,* 

9ET -- 


14) 





VRT T 5AL ( KNTMC1 

- VI? 

\/HO»t7N (KFTMO 

= Vh 

tmtm»AC (KNTMP) 

- 7HT 

GO Tr o'] 



fun 
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3 9/0 4/7 


S°3 . 


RUN’4 LEVEL 60-27-19 


PROGRAM LENGTH INCL’JCINC I/O PUFF E P* 
020142 


ST ATEMFNT FUNCTION ’EFEPENCES 


LC' ATT ON G-M TAG S VM TAT REFERENCES 
STATEMENT N'lMPF® RF ' E^ENCFe 


LOCATION 

55 N TAG 

SYM TAG 

REFE PENCES 


G 0 3 0 1 2 

L100 13 

1 

0000 96 


im?i 

L 1 ' 9 1 7 

5 

0000 11 


ICO 06 2 

LI 0055 

1C 

000222 


J 09 1 1 T 

LI 0 1 1 7 

20 

390^11 


rn?23 

U 0173 

25 

300115 

COO 116 

001155 

L I 01 45 

35 

009136 


C Cl 47 4 

111312 

40 

099446 


9G16G4 

101317 

e n 

NONE 


001760 

'11055 

1901 

0 0,0 1 1 6 


0C17G7 

''* 00 64 

100? 

009126 


9 LOCK NAMES AMO LFN 

IG T y P 




TITLE - 090074 

CAM AG - 

0900 C 7 

stat 

000030 

CSTOAT - O'* 00 0 7 

CNDTNS - 

CO 9 C 1 6 

1 A X SL p - 

013560 

VARIABLE RfF*:REN rr S 




LOCATION 

GEN TAG 

SYM TAG 

REFERENCES 


0 15 141 

Vin 44 

A 

090417 


001 000007 

U'021 

ACT°P es 

099166 

00G173 

014 765 

VTOO 7 G 

A MULT 

0000 32 


014766 

VO 00 71 

ATEM P 

000033 

0 0 036 C 

G 15 042 

VO *145 

E 

000424 


015027 

VO '1 32 

PTFMP 

00036? 


014713 

901011 

COST 

090211 

00022C 

0 14 764 

V 3 0067 

CFH1 

0000 31 

000425 

0 150 2* 

VO 0 1 24 

CPH2 

090330 

C C 0 415 

Q 15 1 1 7 

V 0 '1 2? 

C°SI 

000323 

000362 

ooT7?a co 7 

9U0022 

CFTPPES 

3001 75 

000292 

014 66 7 

9001 07 

CSTVT 

0003 55 


C15126 

U 0171 

CTCUP 

000369 

C 00 36 4 

0 15 Q 24 

VO*^? 

CTHWM 

000354 

GG 0 365 

01476? 

VO 39 65 

CTH1 

0900 30 

Go 0 421 

G15015 

V 0 0 120 

C T H2 

010317 

GG 0 429 

9 0 0 0 0 2 C0 6 

VO C 1 56 

CTHT 

000501 


015047 

V 1 9 1 5 2 

nvR 

000447 

CG0462 

014737 

VO 0** 42 

CV°ME N 

000445 

CG 0446 

C 14 7 40 

* C 0943 

CVRSTG 

000447 

GO 9 693 

C14745 

V90950 

ftmt 

000474 


'01301006 

VO '1 55 

F VH 

309500 


E CO OCO C'6 

V 0 9 1 54 

FVI7 

300476 


014776 

V00101 

T 

000062 

GO 9 0 70 

014775 

VI 01 00 

IFATL 

000060 


ccooco^oa 

A 0 90 13 

TFAL 

ii 0 09 72 



NUMREp 


100629 


0G0433 

0CC432 

OOC471 

000600 


000076 


000001 


000206 



SF3 



RUM 2 4 

LEVEL 60-27- 

19 

* 09/04/73 

0 

0147*4 

VO JO 27 

IPANF 

0000 06 

CG0527 




rn coorai 

l 30" 12 

I T I T L E 

NON c 





014723 

VO 00 26 

IXX 

030602 

0 C 0 524 




0 14 77 2 

V9 J9 7* 

KNTMP 

03 0 0 35 

000061 

0GC113 

000257 

G0C5G2 

C1+ 773 

V C GO 76 

KKTVTC 

0 0 00 35 

0 0 0 C 5 2 

0G0111 

C00134 

000204 

. 



0362 17 





u 14 6*^3 

4" CO "6 

M CM 

0003 64 

000131 

ICC 25? 



C 7 5Q 

V C O 0 6 3 

M 

0300 12 

C0OC14 




onoocra4 

JO 00 24 

NIJMHC 

030044 

000114 

600140 

06G142 

0 0 0 146 




000155 

0 C 6 1 6 2 

OCOI 66 

000171 

C CO 17 5 




036516 





C 14722 

VO 00 25 

tvt M VT L 

3 0 00 53 

CEO 0 56 

000521 



[£1 9C0CQ5 

5(330 15 

pro 

006212 





014 7^4 

V 0 C 1 5 7 

PHI 

00 03 24 





C15 CO 6 

VO 01 11 

p H2 

0 0 G ? 77 

000323 

000325 



01* 0C? 

V 3 0 1 12 

FSI 

000277 

C 00 31 7 

GO C 3 21 



001051 

2 0 0 3 01 

PTHW 

3 600 47 

006261 

9 C 0556 



014^46 

V 3 00 51 

pari 

330500 





Cl* 043 

V 3 0146 

?ix 

000430 

000437 




0 15 0 44 

VO 0147 

31 Y 

060433 





0 15 9 45 

VO 3156 

?L7 

000435 





014763 

V0 n 3 66 

PPH1 

600330 

CO 0 426 




C15O20 

VO 0123 

SPH2 

00 03 ?6 

00042? 




0 1* 3 1 6 

VC 01 21 

5FSI 

Q 2 0 3 21 

00937? 




C CV090C13 

330014 

ST&T 

000102 





0150*5 

vo noc 

STCUP 

000356 

000366 




G 15 0 ?3 

VO 0126 

sthwm 

030352 

C C 0 3 70 




01+751 

V0GO 64 

5 THI 

000 j 27 

0r042C 

0GC432 



015014 

V0G117 

STH2 

300715 

009415 

0 0 G 4 27 



P 14 701 

500010 

7c» 

3 6 0 0 56 





015 J05 

V0011C 

THCUP 

0 3 "2 71 

0 C 0 354 

CG G 7 56 



C CO 0 13 1 ’' 06 

200020 

TH£t A 

NONE 





014736 

V 0 0 0 4 1 

7 HFT AMP 

000455 

000575 




615050 

VJ^ISS 

THPT AR 

000456 

000465 




C 15 046 

VO 01 51 

THI 

000445 

000456 

9 G C 464 

CG0477 

G C 050 7 

001073 

« u "G 03 

THIMPAC 

000137 

000144 

00 0511 



014755 

VO 6 " 60 

T HP 

0060 24 





0 15 0 03 

V 0 0 1 0 6 

T HW 

3 C 0 2 55 

000263 

GC0271 

C 0 0 3 0 5 

0 C031G 




30034? 





0 15 00 4 

V301 07 

TPWM 

900*62 

G G 0 7 5"C 

0CG352 



0 C ! 6 5 ? 

50*3 02 

TMH1 

300047 

Q OO 262 

9C0561 



014 753 

VO 00 56 

THI 

006023 





3147P7 

V 0 " 0 3? 

ti-itn 

000642 





C 14 777 

VO "102 

T H 2 

000233 

C0G241 

GOG 313 

DO 931 5 

0 C 0 3 31 




060744 





015000 

VO 01 03 

7H2H0T 

000250 

CO 0 327 




014 730 

V 0 00 33 

T H 2 T K' 

330232 

00024? 

0 0 C 5 45 



014747 

VO 5" 46 

TWOPH I 

900226 

0CQ24G 

000267 

C00276 


614774 

V 0 0 0 3 7 

v n°N T 

009277 

DO0567 




Cl«- 735 

V 0 * 6 4 C 

VCRNTpT 

000300 

GC 0 57? 




C 15 0 1 b 

VO 01 13 

VCUPNT 

100306 

CC0361 




01^ "40 

V 0 * 1 43 

V H 

300416 

G CO 435 

900463 

090476 

CQ05C6 

CCOO1OC06 

5300 17 

VHOP 

NON* 





706013 

50 03 04 

VHOPI 7f 

300146 

0 G 0 1 5 3 

CCQ519 



*0 15 0 33 

VO 31 36 

VTX 

0 9 0 4 01. 

000411 

OC C 436 





SCI 



RUN? 4 

LEVEL 60-27 

-19 

09704773. 

u 0 3 4 

V001 37 

VTY 

000405 

003 440 



r 1* 0 3 5 

V 0 0 1 4 0 

VI? 

0 3 0410 

0 0 C 47 ? 

0 ? C 47 4 

0 0 0505 

C150?2 

V0 **12* 

VP 

000331 

0 G 0 333 

000340 

0 0034 6 

014767 

V G **1 7? 

v^nx 

0 O ? 0 3 3 

CGO 374 



0 14 7 70 

V C 0 0 7 3 

VEO* 

0 0 ?G 34 

000342 

000400 


014 771 

V0O0 74 

VPOZ 

000034 

00033* 

30 C 350 

00 0404 

? li 7 5 6 

VC0361 

VP T 

0 3 0 0 25 




014731 

VO 0 0 34 

VFTTN 

000550 




014 732 

V^OQ 35 

V CT S I G 

000553 




014 75 7 

VO *0 6? 

yoT/ 

0000 25 

000374 



014760 

v c a 3 e 3 

V C TY 

0000 26 

0 C 04 CO 



Gl c 0 37 

V 3 0 1 42 

V°TZ 

000404 




CIO 7^3 

M3 r 0 0 5 

VRTICAL 

000155 

000164 

000506 


0150 11 

VG01 14 

VTn 

000303 

000406 



C 14 7 41 

VO 0744 

V T DI N 

000112 

0 C 0 1 21 

000124 

C 00 16 0 0 00302 

01474? 

V 0 0 n 4 5 

VTOSTG 

0 0 0 3 G 2 

000613 



000003006 

A QO? 16 

VVEl 

NONE 




015001 

V0O1 04 

V WTMP 

300254 

0 C 0 30 7 

300312 


01501? 

V 0 0 1 1 5 

VKINPY 

000310 

0 C 0 373 



015 013 

V 0 01 1 6 

V WIND V 

0 00315 

000377 



C 15 " 3 6 

VO 0141 

VhTMO 7 

00G403 




C 15 0 0 2 

V ft 01 05 

VWM 

000254 

000362 

000371 


015030 

V 001 33 

V WMX 

000367 

0 CO 376 



016 0 31 

VO 01 34 

VWMY 

000372 

G 00 40 2 



015032 

M3 713 c 

VWMZ 

0 0 ?3 75 




C 14 7 5 1 

100054 

K1 

0000 22 




014 725 

VO 00 30 

W1TN 

030534 




D 14 7 5? 

\ 0 00 55 

W 2 

000? 23 




014 7? 6 

VO 70 3i 

W 2 IM 

000246 

000537 



014 747 

V ? t 0 5 5» 

y 

0300 11 

Orooi7 

000050 


014 733 

VI 07 76 

XLP 

000251 

000564 



014744 

V 0 3 0 4 7 

YLS 

000250 

C00327 



014 7T<* 

V Q 00 77 

XNC 

000046 

000253 



•* 3*640 007 

t 0 00 23 

MSAV 

NONc 





START OF rCMST0.N T S 
0 C0623 

START OF TEMPORARIES 
00076? 

START OF IFOIREOTS 
001042 

EXTERNAL CFC£D EN rc-^ 


SV4ROL 

^EFE PEACES 






Qbntdy 

n 70 02 






T&PUTM 

000035 C0004C 

300043 

C00112 




R ANF 

0°00 10 0 000 1 6 

0 0*2 24 

000234 

00 0 266 

000274 

0 0 C 452 

TTM P 

103° 13 





e fl t 

00 0021 






WAVE 

C30O51 C 0 0 2 6 4 






f05T D L T 

300257' 






CL’TOT? 

*: 0 0 i 2 G 000122 

000123 

0 0 0 1 30 

000132 

0 0 013 3 



23 



09/04/73 


cog 



RUNS 4 LEVE 

L 60-27 

-19 

WPIT 

CO 012? 





KTST 

"00141 

0 0 0 15 C 

030157 

C C 0 1 7'C 

0 0 C 1 77 

c LO T 

r 0"145 

000154 

000165 

000174 

J 0 0 2 0^ 


: ,, ' , 27i 

CQ0311 

003 314 

000320 

0 C 0 3 24 


00035? 

000461 




rrs 

00024? 

ojo^ce 

003316 

0 CO 32? 

00 0 326 


00^353 

G3"35 7 

30047Q 



NT" n 

000255 

0 0026C 




SPN^Nl 

r 0 "t Cl 

0 0 03 C 4 

000450 



S0*>T 

"00414 





4 T>\M 

" 3 r 4 4 4 





LC»ns 

03 05 "3 





PNH 

C 0 0 5 1 3 






000332 
COO 335 


C GO 342 


0 00 337 


UNUSED CCNFILEo 5P? 05 
00403 " 


24 



raooc? 

000907 

oocoi c 

GOOOiU 

0 0 3'??'? 
C 02021 
D 00021 
0 C03 24 
0 CO 0 30 
000334 
0 PA 0 37 
001040 
0 0G142 
000046 
000350 
000053 
0 C 00 54 


RUN 2 4 LEVEL 60-27-19 09/04/72. 


SMBPCUTTKc WAVFtN ,> ,Y , VAl ,TWM) 

C 

C THIS routine calculates the have OIPECTTON 


C N TF N EOUALS c CALCULATE THE SLOFFS Ff? CM THE INPUT CATA 

C IF N EQUALS 1 CALCULATE WIND QIFFCTICtv 

c y AFRAV WTT H PROBABILITY VALUES 

r Y APPAY HI Th HAVE OIPECTIONS 

C VAL DIRECTION CF WAVE 

c TU|M -- OTFECTlnN CF WTNn 

r — 

OIMCNSTON X(1) t V(l) f SLOPE (8 ) 

IF(n ,Ni, 0) GC TC 23 

C ''OMIJTE SLOPES WHEN N = 0 

on 13 T=i t p 

SLOPt(i) = <Y(l4-l) - Y( T ) ) / ( Y ( I + 1 ) - Y ( I) ) 

10 OQNT I N U r 

OCTIHR 

20 Z - RANF (C> 

OO 7^ Tr 1 , P 

IF(T ,HT. Y(T) ) Gr TO 33 

VAL = (Z - Y(I-1)3 * SLOPE(I-l) + Y(I-1> 

GO T 0 4n 
3 0 C ON' r T NU r 

VAL * (Z - XI8)I * SIPPE(8> + Y(3> 

40 VAL = VAL + TWM f F, 263134 

VAL = AMOCCVAL ,6.263184) 

PPTIJ7N 

PMO 



kAVE 


RUN24 LEVEL 60-27-19 


09/04/72 


S19PR0&GAK LENGTH 
C J0106 

STATEMENT FUNCTION REFERENCES 



LOCATION SEN TAG 

STM 

T AC 

references 

ST4 T LMENT 

NUMBER »EFE n ENCES 





LOCATION GEN TAG 

SYM 

TAG 

REFERENCES 


0C3022 Uu ft 23 

2 l 


OJQC 10 


003041 10^035 

30 


OOu? 33 


050947 L3004C 

4 n 


0000 40 

BLOCK NAMES ANO L r NG 1 MS 




VARIABL E 

RE c EREN r £S 





LOCATION S C N TAG 

SYM 

TAG 

references 


0CQ1G4 V3G007 

T 


oaouii cooosr 


003074 fCOOOl 

SLOPE 

000013 


£0*10*5 VC001C 

? 


003024 00CC31 

START OF 
000057 

CONST 6" T S 




PT APT OF 
0 C00&2 

TEMPOS ARl r S 




START OF 
000070 

IUrpcrTS 




EXTERNAL 

REFERENCES 





S VM30t_ REFERENCES 

S8NF (30023 

PND 10 CO *56 





OCOC41 


3G0943 


UMJS c 0 f C A FI L CD SPfiC e 
006700 


26 



005306 
0 0 Q a ? 6 

0 COO 0 6 

0 0 CO 06 

0 C 000 6 


0 C 00 0 6 
0 C 0 0 0 6 

oo*oii 

300011 
000012 
0CQ12U 
000021 
000025 
000027 
000032 
000036 
000037 
000043 
000045 
000052 
0 00 055 
000057 
0 C0061 
0 G 0064 
000066 
0 0 CO 72 
0 C 007 5 
Q C 010 0 


C 0 0 1 06 
CO 310 7 

0 0 QUO 
000112 
000114 
000115 
000121 


RUN24 LEVEL 60-27-19 09/04/73* 


SU°PCUTIK ; E SLAFtVLOD ,X°RES ,IF ,KNTKC ) 


r-- — — - — 

C this routine determines if the case has been damage on SL AP-CO n 

C XL 00 VALUE COMPUTED FOR. LOAD OK CASr IK SUBROUTINE LOAOS 

c X°PE ^ — VALUE COMPUTED FOR PRESSURE ON RASE TN SUBROUTINE LC^OS 

c IP IF ON RETURN FPOM THIS ROUTINE 

c IF = o NO DAMAGE TO CASF 

r IF - 1 2 - segment 0AM age 

C IF = ? SIN X AG E 

C KNTMC — MCNT c CA»l 0 TRIAL BEING COMPUTED 




COMMON / MAXSLP / ARRES<2000> ,CprES(2000) ,XNS(200G> 

DT M c KSTO K PRO 6(10) ,XnC2<5) ,SSCAS?(50) 

C StptnGTP FOR CASE - SLARDOWN - HOCP MOMENT 

DATA P 90 E / 0. , • Cl . • 05 ,.10 ,.20 ,.80 ,.90 ,.95 , 

1 .99 ,1.0 / 

DATA >NC2 / 0. ,7 9 COO. ,50000. ,60000. ,70 "00. / 

C HO(P MOMENT FO» RA SLLTME 


TATA ? SC AS? / 

9600 . 

,4*0. 

, 10200. 

,4*0. 

, 1070C. 

,4*0 

1 

1 095 C • 

,4*0. 

,11250, 

,4*0. 

,12500 . 

,4*0 

r> 

128 CO. 

,4*0. 

, 1305P. 

,4*r. 

,13500. 

,4*0 

3 

14100. 

,4*0. 

/ 





T F = 0 

C DO ? IVARINT TKTCRPGLATION FOR CRITICAL PPESSUP C 

Z = RANF(O) 


IT = 5 

JJ - 0 

TO 11 J=l,JO 
J) - 11 - J 

IF(PROn<JJ) .LE. 7) GC TO 15 
10 Of)N T 3NU c 

15 tfm: .EQ-. 10) JJ = 9 

TO 22 T-i,5 

T I - 6-1 

IF ( WC ? ( II ) .LE. Xton GO TO 25 
20 rONTUUE 

25 TF(TI .EC. 5) IT •= 4 

Lot - II + 5 * (JJ-1) 

03 = SSCAS? (LOC+6) 

G2 = SSCAS2 <LOC + 5) 

G1 = SSCAS2 (lOC + i) 

GO - SSCAS? (LOC) 

PVM a (Z - RRC9(JJ)) / (PROB(JJfl) - PROP ( JJ) ) 

G A A = GP ♦ t»vh * (C2 - GO) 

G90 = Gi ♦ OVH * (C3 - Gl) 

°C RI T s GAA + (XLCC - XNC21TIM / CXNC2UI*1) - XNC2UI>) 
* * (GBP - GA A ) 

C SAV* LOAD, ACTUAL PRESSURE ANO CRITICAL PRESSURE 

XNS(<NTMC) = XL CD 

At R r S ( X K T MC) - XPPFS 

CDocc ( <nTMD - RCPTT 

TF(X*RES .LT. PCRIT) RETURN 

TF s 1 

TF((XPR e S / PC R IT) .LT. 1.2) RETURN 
IF s 7 


27 



SL ^ ° 


LEVEL 69-07-19 


O9/0<»/7 


900122 

"00123 


PPTil’K 

c MO 


28 



slap 


SUPPRnGFAN LENGTH 
QC0274 

STATEMENT FUNCTION T E FE FENCES 

LOCATION TEN TAG SVM TAP 
STATEMENT NUM^E^ REFE^ENCCE 



LOCATION 

T- N TAC 

SYM TAC 


003030 

LO 73 26 

15 


003346 

107042 

2 c 

BLOCK NAPES AMD L EN 

ITT MS 


M A v Si P - 

01356* 



VARIABLF 

RE-c-RCMCFS 



location 

GEN TAG 

SYM TAG 


CGOOCOCOi 

a a oo ai 

APRES 


003723 CO 1 

1 3 p 3 0 ? 

CPPES 


CC3270 

*30025 

PVH 


0C3 271 

V3 0 7 26 

GA A 


003 27? 

\C 03 27 

Cop 


0C3267 

VO 3 0 24 

GO 


CG1266 

V 3 7 0 2 3 

Cl 


CC7265 

V* 73 22 

G 2 


J *0 264 

VCCO 21 

G 3 


GG3 262 

V 0 0 7 17 

I 


0 G * ?5 7 

V307 14 

II 


C CO 26 1 

V 0 3 * 16 

J 


0 T 3 260 

VO 07 15 

JJ 


0 CO 263 

V C 70 20 

l DC 


* C 3 273 

V3G.C30 

FC°I T 


C 0 3 155 

A 0 30 04 

p°08 


C CO 174 

AOOO 06 

SSCAS2 


COO 167 

*00005 

XNC2 


C Q T 640 CO 1 

*7 70 03 

XNS 


0P3256 

1*7313 

Z 

START OF 

constants 



3*00126 




START OF 

TERROR Ao I e 

3 


033131 




START OF 

I NO IPE^T^ 



000153 




external 

REFEREN rc S 




RUN24 LEVEL 60-27-19 09/04/73 


REFERENCES 


REFERENCES 

003025 

003043 


REFERENCES 

aooiii 

000112 

000074 

3100 76 
3 0 0101 
300070 


0 0 0u 65 

GG3C7F 



000062 

000072 



300060 

OP 0 075 



033034 

CO 0 0 3 6 



300012 

00 0 0 4'0 

900046 

0 J3053 

0 JOQ 16 

000*27 



000312 

CG0022. 

000030 

030052 

330055 

000057 

00C062 

0 00064 

3001 07 

CCOlll 

000116 


3000 23 

000 067 



00 00 66 




03 30 41 

7C0103 



030110 




030011 

00002:0 

000071 



SYMBOL ?E F" FENCES 

RBNF 3900 10 

ENH C 3 ” 1 25 


CG01C2 


29 



si "> » 


SUN 2 4 LEVct 60-27-19 


UNUSED CC^FT L£ 9 SoftQE 
0 9633 C 


09/04/73. 


30 



run? 4 level so-? 7 -i 9 09/04/73. 

SUBROUTINE STREV(TAEL , VALUE ,IF ) 

C 

C THIS ROUTINE OE^ERMIt^ES IF DAMAGE HAS OCCUREO TO A PARTICULAR FART 



C 

c 

c 

r 

c 

r„_ . 

T A RL TABLE FOR IMFPPOLATION OF LOAD CR PRESSURE STRENGTH 

V AL U = — ACTUAL VALUE FOR LOAD OR PRESSURE GENERATED IN LOAOS 

TF FLAG FOR INDICATION OF OAMAGE 

IF = Q Nf PANAGE 
IF * i DAMAGE 

000005 


niMENSTON T/VPLm 

, C RO0(1O) 

000005 


nATA c R CB / ?. , 

• El ,.05 » * 1 i*2 ♦ • 8 , • 9 1 * 95 , » 9 R 



1 1*0 

/ 

0 C COO 5 


IF = ? 


000005 


7 - 0 A N'F { 0 ) 


n C 001 0 


DO 10 1=1,10 


000013 


IF (7 ,R T # PP06 (D) 

CD TO 10 

T* C 0 01 7 


VAL S (Z - FRC 0 ( I 

-in * ( ( TA 9L Cl) - TABL(I-m / <PRO 0 <I) - 



PPp3 ( T-l ) ) 

) + TA9L(I-1) 

OCOO ?6 


GO t 5 (t; 


proa ?6 

10 

CON T TNUE 


000030 

15 

IF(V?LUE .CT. VAL) 

IF = 1 

000034 


RETURN 


QCC035 


r ND 



31 





RIJN24 LEVEL BT-27-19 


SUBPROGRAM LENGTH 
000076 

ST ATEMEKT FUMCTTOM ScFERET'^S 

L CO AT TON GEN TAG STM TAG REP-RENCES 
STATEMENT MMM8ER RE c £°ENr c S 



LCC AT TON 
o ro o?7 
C Cl 031 

GEN TAG 
1. 0 "0 2 2 
UM 24 

S v m T c c- 

13 

15 

REFERENCES 
0000 16 
00 0'’ 26 

BLOCK NAMES Amq LENGTHS 



VARIAPL e 

REP £RENC r S 




LOCATION 
TCT074 
3C0061 
C CO 0 75 
CCT077 

GEN TAG 
\ 0 00 06 
M00 Cl 
V0 00 07 
VC 03 05 

SYH TAG 
T 

PROP 

VAL 

7 

°EFE RENCES 
000013 0C0027 

NONE 

000026 CO 0C 31 

000010 C00014 

START OF 
000040 

CCT STANDS 




START OF 
000*42 

TEMRORARI^ 

S 



START OF 
300054 

INTIP^ot^ 




EXTERNAL 

REPERENPPS 





SYMBOL 

PANT 

ENT 

FE PENCES 
M 00 07 
100037 




UNUSED COMPILER SPAO^ 
007000 


OC 0Q?J 


09/04/73. 
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PUN24 LEV'LL 6C-27-19 


39/94/73 


000005 

000005 

000005 


OCOOQ5 
000007 
000011 
000011 
000012 
OC0916 
0 C 00 21 

000023 
000026 
000027 
OC 00750 
0 C 9 0 35 
000336 
000337 
Q 0 0? 40 
DU 00 45 
000046 
OGQ051 
0T0352 
000056 
000064 
0 Q0065 
0 COO 73 
0 CO 0 77 
000101 
00010? 
000110 
q com 
000112 


c 

r 

c 

c 

r 

c 

c 

c 


c 

1 

2 

5 


10 

20 


30 


SUBROUTINE" HIST (VALUE ,KOUNT , JTTTLE ) 


this ROUTINE GENERATES A HISTOGRAM FOR OUTPUT . I T USES A 5 PER CENT 
OF THE TOTAL NUMBER CF MONTE CARLO TRAILS AS ITS 0AS e . 

VALU: — - ARRAY WHICH CONTAINS THE DATA FROM WHICH THE H 1ST GRAM 

IS To S' 7 GENERATED FROM, ON RfTUPN frcm THIS ROUTINE THE 
ARRAY VALUE has BEEN SORTED I NT C ASC FMOING C p DER 

XOIJNT TOTAL NUMBER OF MONTE CARLO TRAILS 

JTITLE — P CINTER FOR PRINT OUT OF COORECT TITLE 


rOMMCN / TITLE f NN (60 ) 
niMFNSTON VALUE tl) ,SUM<?0> 


DATA NN 

/ 



1 

1 T H VERTICAL 

1 1 0 H I MP ACT VEL 

2 

1CH) F OF S^EP 

»1QHS 

CF .05 F 

3 

1CHHOPIZONTAL 

,10H IMPACT VE 

4 

1 C H > F OF STEP 

» lfl HS 

CF .05 F 

5 

1 CHIMP ACT ANG 

,iohle 

(RADIAN 

6 

1 C H F CP STE P 

,10HS 

OF .05 F 

7 

1CHLOAC ON CA 

,10HSE 

(LBS/IN 

6 

1 OH FOP STEP 

, l oh s 

OF ,05 E 

9 

1CHHOOP MOMEN 

ilOHT 

CN CASE 

1 

lOH) F OF STEP 

♦ 1 OHS 

OF ,05 P 

2 

1CHHOOP MOMEN 

jlQHT 

CAPA B It I 

3 

1CH) F CF STEP 

,10HS 

CF .05 f 

TOUTS 

(JTITLE -1) * 6 

* 1 



,1GH0CITY (M/S 
,10 HROBABIL I t y 
, 1 OhL OCITY ( M/S 
,1 0HRORA9ILITY 
ilOHS) 

f 1 OHROBABILITT 
, 1 C H ) 

» 10HROBABILI TY 
, 1CM (IN-LB/IN) 

, 1 0HRCBA8IL I T Y 
, 1 0 HTY 

,1CHR0BA8ILITY 


/ 


IOUT* 

= 

TOUTS + 

r 

YMFAV 

« 

C. 


SIGM1 

- 

0. 


IHALF 

= 

KOUNT / 

2 ♦ .5 

NNTN" 

s 

KOUNT * 

.99 

IF(Jir r LE 

• N£ • 1 ) 

GO TO 2 

TAKE 

T H^ 

absolute 

VALUE OF VERTICAL VELOCITY DUE TO SIGN OCNVENTICN 


pn i T=1 , KOUNT 


VALUE(T). = AES( VAIUF(T) ) 


PONT 1 N UE 
DO 5 KK=1 ,20 


SUM UK) = 0, 

rONTTMjE 

CALL p OR X ( VAL U E , K CUN T ) 

INC - KOUNT * .05 
00 11 Tt:i t 2C 

I STR = (1-1) * INC + 1 

ISTP = I * INC 

IF ( 1ST F .GT. KCUNT ) IST P = KOUNT 

DO 11 i~ ISTR, I STR 

SUM ( I ) = SUM ( T ) + VALUE <J> 

CONTTN'JP 

OO 2 ( r=l,2C 

SUM (II - SU M ( I J / INC 

CONTINUE 

no 31 T =l, KOUNT 

XM£AN s X ME A N h VALUE (II 

CONTINUE 

XMEAN = XMEAN / KOLNT 


.2 


J 
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FTST 


RUN24 LEVEL 60-27-19 


99 / 04/73 


000114 no 4 Q T = 1 , Y P l J N T 

GOO 122 C IGMA = SIGN/!* < \/ALUE( T> - YM£AN) ** ?. 

0GM24 40 rONTTM.fr 

300125 = SQR T (SIGMA / YOUNT) 

203134 WPITt ( 5, 1005) (NN( I) , I=IOUTS, IOUTP) 

f 'C0145 I c (JTtt l p #L t. 4) G0 Tn ?5 

0 00151 WO IT? (6, 10 C 3 ) (SUM (I) ,7=1,20) 

000157 WPIT-16, 10C4) VALUF(l) , Vfi L UE ( KOUNT > 

000174 WOIT * ( 6 , 10C7) XMEPN , SIGMA , V A UjF { I h A LF > , VALUt(NKIMF) 

C 00 ?16 R" T URN 

CC0217 25 WRTT<M6, 1001) ( SUM (I) , 1=1 , 2 Q) 

003225 WRIT-C 6, 1CC2) VALUt(l) , V A LUE ( KOLNT) 

000242 WPIT£ (c T IQ ng> XM r A N , SIGMA , V AL IE ( I H At F ) , V AL UE < NN IN" ) 

000254 1030 POOM5T f ihc,5X, 6A10) 

C90266 1031 FORM!? (lH0 f 4(5X,Fi C . 4 ) ) 

000266 11^2 FORM AT (l HO ,5X, 15H MINIMUM VALUE ,2X,F10.4»/, 

1 6X,15H MAXIMUM VALUE ,2X,F10.4) 

000266 1003 r OPMAi(iH0,4(5X,F10.C) ) 

0 C 026 6 1004 FORM AT (lhQ,5X, 15H MINIMUM VALUE » 2 X ,p 1 0 . 0 * / , 

1 6X,1SH MAXIMUM VALUE ♦2X,F13.0) 

000266 1 CO 5 FOOM»T (1H1 ,5X,6Ain> 

C 00266 1037 FOP M it ( t HP , 5X , 7h MEAN , l OX, FI 0 « 9 , / » 

1 6X,7H SI6M ,10X, F10. 0 ,/, 

2 6X,7MMTDIPN ,fOX, FI 0 * 0 , 

3 6 X , 20 H NINETY NINE PERCENT ,F10,C) 

PC0266 1G38 FORMAT (i Hp , 5X , 7H MEAN ,1 0 X, FI 9, 4 , / , 

1 6X,7H PIGmA ,10X, FiO. 4,/, 

2 6X , 7hM F DIAN ,19 X, FLO, 4,/, 

3 6X , 2 GHN I NET V NINE PEPCFNT ,F1G.4) 

003266 RETU7N 

D 00267 r MO 


34 



yr^j 


RUN24 LEVEL 60-27-19 


09 / 04/72 


SUBPROGRAM LENGTH 
000507 

ST ATEM EN 7 FUNCTION REFERENCES 

LOCATION GEN TAG STM tag RE c EPENCES 

STATEMENT f^jMBER orr c E °E 


LOG AT I ON 

r^N TAT 

STM TAG 

REFERENCES 

000031 

L 0 00 26 

2 

0003 ?3 

m 220 

10 PI 27 

25 

0007 51 

H0T2T7 

0 0 00 05 

1000 

NONE 

0C0 7*2 

pcooio 

1001 

000223 

100305 

0000 13 

1002 

000230 

C 00 321 

( 0 00 27 

1003 

030152 

000324 

0 r £30 72 

10 0 4 

000162 

COQ 340 

GO 03 4 6 

1005 

303136 

0 C1347 

"0 00 51 

1007 

303177 

0 00 374 

(001 02 

1036 

000245 


BLOCK NAPES AND LENGTHS 
TITLE - 000074 

VARIABLE REFEREE* 


LOCATION 

GEN TAG 

STM TAG 

REFERENCES 





a ci 5oi 

V 3 GO 14 

T 

1003 24 

CO 0 0 46 

O0C061 

003071 

000074 




000116 





J 33477 

V333 12 

IHALF 

3 000 I 7 

000207 

000255 



C30503 

V C 00 16 

INC 

0000 45 

000047 

0 C 0 3 77 



003474 

V0 30 07 

TOUTP 

000011 

000142 




(JPO 473 

V3 33 06 

I CUT r 

000010 

000141 




C0350S 

VO 00 20 

IST° 

000053 

003056 

000063 



CC35G4 

V 0 3 3 1 7 

I'T* 

003051 

C00057 




TC3505 

VO 30 21 

J 

030063 





0 C 3 50 2 

V0*0 15 

KK 

3000 32 





CC3000C01 

? 3 * Q 01 

NN 

NONE 





0 Cl 50 0 

VO 03 13 

NNINE 

0000 21 

000213 

000261 



003476 

V0C3 11 

SIGMA 

0300 13 

000121 

000127 

000134 

000204 

0 C 3 447 

*0 03 02 

SUM 

000034 

000076 

300155 

000223 


0C3475 

VOOQ 10 

XMEAN 

0003 12 

GCOllt 

000113 

000121 

C002C2 


START OF CONSTANTS 
000372 

START OF TEMPORALS 
000425 

START OF TKOIPECTS 
OC0437 

EXTERNAL RE e ERENOFS 

5 TM 9 Ol REFERENCED 


35 



HIST 



*UN2 4 

LEVEL 60-27- 

19 

OQ/94/73. 

Sr?Y 

SC?T 

CUT D T r 

no^o 

: 3*133 
to 1140 
310173 
100222 
00 0261 

C00144 
0 0017 4 
C10224 
003253 

030145 

030231 

030225 

330257 

C G 0 l c 4 
000203 
C 00 2 7 2 
000263 

3 0 C 156 
0 0 3 7 0 5 
0CG235 
00 C 26 4 

C 0 0 157 0 CO 16*i 

C 3 3 211 0 00215 

030241 000242 


?vo roo?7i 


UM>S£D CCHFTt cc ? 
0 0*540 a 


36 



RUN24 LEVEL 60-27-19 


09/04/73 


000007 
CO 00 0 7 
C 03 00 7 
000021 
*100 26 
000027 
0C0D31 
TOGO 36 
000041 
0 0 C 0 42 
00004 ^ 


9UBPCUTINE PlOT(IT ,KOUNT ,XSTRT ,VINC » VA L UE ) 
r--- — ------ 

T PLOTS THE PROEAEILI T Y DENSITY FUNCTION FOR INPUT ARRAY 

C IT POINTER FOP TTTLE 

C KOUN1 TOTAL NUMBER nP NO NT c CARLO TRAILS 

r XSTR TNI T AL VALLE ON X-AXIS 

C X INC INCREMENT FOP MAJOR GSIOS ON X-AXIS 

O VALUE — - ARRAY TO BE FLOTTpO 

C 

OIM^KSTON VALUE(t) 

COMMON / TITLE / KM60) 

CALL SPLKXSTR7 * X ITT ,1H ,NMIT1 ‘,0. ,0 ,0. ,1. ,1H ) 

00 13 T - 1 » K Ot i N T 

XY 5 T 

Y ^ XX / KOliNT 

CALL FPLT (VALUE (I) ,Y » 

10 CONTINUE 

CALL E C L T ( C ) 

RETURN 

run 



HIT 


RUM 2 4 LEVEL 6C-27-19 


09/0 A/73 


SUBPRG&KAf* LENG T H 
OCO"S6 

STATEMENT FUNCTION "E F r PENCES 

LOCATION GEM TAG SYM T AG 

STATEMENT N'J 1 nr r Rf c E°ENCFS 

LOCATION GEN T/\o SYM TAG 

BLOCK NAMES AND LENGTHS 
TITLE - CO 0 0 7 e* 


VARIABLE 

RLF tREN rc, S 



L CC A T IO N GEM TAG 

SYM TAG 


LC0C67 ^ 0 CO 07 

T 


CO^OCOCjI <03001 

NN 


CC3064 VOO^iC 

XX 


CG006S VC0011 

Y 

START OF 

CONSTANTS 


3 0 u 0 4 6 

START CF 

TtMPOR ARl r S 


0 0006P 

START OF 

IN1IPECTS 


000062 

EXTERNAL 

k rc EPEM r ES 

SYMBOL ^-FFRENCp^ 



SF'-T COCO 14 

FPL T 10^33 

FPlT 30j3i.2 

ENO 3 0 0 0 it 5 

J 000 21 


UNUSEO rCMFILER PPA3- 
0 C 70 0 r» 


R^FEPENCES 


REFERENCES 


REFE R c NC C S 
3 00026 CO 0 C 37 

NON" 

00 00 33 

00 00 31 COOt? 32 


38 



RUN? 4 LEVEL 60-27-19 


09/04/73 


SUBROUTINE HINCCMNTH ,XNC »N TRIAL ,VWIKC , VHM ,THW ,Z 1 

c 

C this ROUTINE COMOUTtS THE WIND PARAMETER ST. USING PRE-C ALCUL AT- 0 

r r0V 4 RIANT COEFFICIENTS FOR EACH MONTH 

C MNT H ARRAY WHICH STORES THE NUMBER OF LAUNCHES FQP EACH MONTH 

r (EQUAL NUMEFR OF LAUNCHES P EP MCNTH) 

C XmC EQUAL TO the NUMBER OF LAUNCHES PER MONTH 

C N T RHL - MONTE CARLO TRIAL BEING PROCESSE0 

C VWTMT — VELOCITY OF THE WIND AT THE C-CKOPY HEIGHT 

C VHW WAVE VELOCITY 

C THW WIND OIRECTTON 

C 7 HEIGHT OP THE CANOPY 

c - — — 

C00011 DIMENSION COVAE(7?) ,mTH(l) 


C09Q11 



OATA 

OOVAP / 





c 

- 

- - 

DAT? 

FOR JANUAPAY 







1 


3.93 ,0.91 

,7.003212934 

,-.3083968188 

f 




? 


.3353012103 

,6.441278338 

, 



c 

- 

- - 

n /\T A FOR FFPPUADY 







1 


3.65 ,2.35 

,7, 106562509 

, 1. 484711855 

9 




o 


-1.66*550755 

,6. 323570064 

» 



c 

- 

-- 

OATA 

FOR MARCH 







1 


3.22 ,1.70 

,6.659879407 

,-,3727660442 

9 




2 


.413*135^29 

,6.105652724 

, 



c 

- 


OATA 

FOR 4 F D I L 







1 


0.39 ,1.20 

,6.713373663 

,.5989593722 

9 




2 


-.7519572667 

,5.347388170 

» 



c 

- 


OAT A 

r OR MAY 







1 


— .71 ,9.90 

,5.096806095 

,-1.216621401 

9 




•> 


1.565G50691 

,3.9620 97464 

, 



c 

- 

- - 

O AT ? 

FOR JUNE 







1 


C.*2 » 1 • 63 

,4.797859691 

,-l .311414985 

9 




2 


1.8359 33143 

,3.333490087 

/ 


0 0 0 □ i 1 



*> AT ft 

(CCVAR(I) ,1=37,7?) / 




r 

- 

-- 

DATA 

FOP JULY 







1 


0.94 ,2.64 

,4,486889924 

, .09983610795 

f 




2 


- .1334843370 

,3.357347453 

» 



c 

- 


DATA 

FOR AUGUST 







1 


0.19 ,1.89 

,4.342658383 

,-.8232367967 

9 




2 


1. 085517 ?F 7 

,2,234315789 

, 



c 

- 


DATA 

FOP SEPTEM9EP 







1 


-2.06 ,0.40 

,5.249204134 

,-2.627309642 

f 




2 


3, 57072274 2 

,3.562323016 

, 



c 

- 

— 

DATA 

FOR OCTO F E° 







1 


-1.56 ,-1.42 

,5.464846616 

,-2.157168964 

9 




2 


2 • 9 25° 2 4 2 DC 

,4.193726057 

, 



c 

- 

-- 

OAT? 

FOR NOVEMRE 0 







1 


-0.32 ,-0.78 

,6.549793840 

,-1.672662742 

9 




2 


2.246047702 

,4.377721732 

, 



r 

- 

- - 

OATA 

FOR DECEMEER 







1 


1.11 ,0.21 

,6.766937664 

, - • 559 155297T 

♦ 




2 


. 65775 68484 

,5.752517125 

/ 


900011 




OO 1 3 

1-1,11 




000312 




IF ( N'TR I A L .GT. (I * XNC f .5)) GO TO 19 


CCQ020 




MONTH 

= I 
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VTMn 


RUN? 4 LEVEL 60-27-19 


39/04/72 


000021 


C C 00 21 

1* 

000022 


0 C 00 2 4 

15 

000026 


PC003? 


0 0u034 


009037 


000044 



C ■ 

0C0J51 


000055 



C ■ 

000067 


0 0 0 0 7 3 


*00*77 


000077 

2 C 

0 0910 5 

25 

0 00 111 


000115 


000115 

2 C 

000116 

35 

000123 


00*127 


030131 


000132 



GO T " 15 
rOMTTMlJE 
MONTH = 12 

MNth(MONTH) = MNTH(MCNTH) *■ 1 
KMT = tMOMTH - 1) * f * i 

nALL «PNRN1(0. *1, ,PH 
CALL S°NRN10. ,1. ,p?) 

VM - CCVAR(KNT) + CC VAR ( KN T + 2) * PI * CCVAR(KNTf3» * R? 

VV - rovAR(KM+l) + CCVAR ( KN T + 4 ) ♦ »1 f COVAR (KNT+5) * 92 
^OMouTfr i KILOMETER WIND 
VI. KM = SG D T ( VL * VI + VV * t/V ) 
tmw = AT An2 ( V V , VU ) 

-X T ?AFOLAT r 1 KILOMETER HIND DOWN TO GONGPY HETGHT 
IFtVIKM ,GT, 14*0) GO TO 20 
D - 0.16 * < (U1KM / 14.0) ** 1,9> 

c O tt ?5 

v - 3.21 * ( (V1KM / ?1,0) ** .67) 

IE ( 7 . G T . 153,0) GG TO 30 

VWINT = V1KM * ((2 / 150.) ** Pi 

GO T E 75 

VWIN9 = V1KM 

VREF = V1KM * (0.13 ** °) 

’'ALL S c NRN1(0 b ,VPtF * 0.0645 , VWM ) 

“13 = C.0214 * VPEF * VREE 

PE T URN 

PWQ 


40 



wtim o 


9UBPR0GPAH LENGTH 
00031.5 


STATEMENT FUNCTION *5 <r EBEKES 


LCCATION 

GEN TAG 

svm tat 

STATEMENT NUMBER d 

-:iaf NTFS 


l CC AT I ON 

G* N TAG 

STM T AG- 

OCT 022 

LOCO 23 

IO 

00^025 

L 0 00 26 

15 

CC3100 

LOG'' 50 

20 

2 CO 106 

L 0 0 0 5 2 

2.5 

000116 

L 0 0 n 6 0 

30 

COO 117 

LO 00 61 

■» c 

BLOCK NAMES AND LF 

N G T MS 


V A RI A n L E RFFEPFMC^S 


LOCATION 

G-N TAG 

STM T AC 

CCT172 

AO 00 01 

COVAR 

CC0314 

VO 00 23 

FI 3 

70? 

V u 00 11 

T 

C03304 

VO 00 13 

KN'T 

G CO 3 0 ? 

VO DO 12 

month 

0 CO 3 1 2 

VCOO 21 

P 

1 CO TO 5 

V 0 00 14 

PI 

CC3306 

VT 00 15 

C2 

? CO 31 3 

*0 Gil ?H 

VREF 

CC03P7 

V3QO 16 

vu 

CCO 310 

V 0 0 0 17 

VV 

0C9 311 

V 0 3 9 2 G 

V1KM 

CCO 000 

L 3 00 12 

7 


START OF PCNSTANTS 
C30135 

START TEMPORARIES 
000157 

START OF miPFCTS 
00017? 


EXTERNAL REF E°ENC C S 


STMBOL 

REFERENCE* 


SPURN 1 

Cl 0 3 34 

COG037 

SO^T 

]il^ 55 


ATAN? 

000063 


RPARFX 

OCOO 75 

003103 

FN9 

GO 01 34 


UNUSED COMPILER 

SP69E 



RUN24 LEVEL 6C-27-19 09/04/?3 


REFERENCES 


R^FE PENCES 
0000 17 
0300 ?1 
0000 72 
00 uO 77 
000110 
0001 15 


e»EFERcNCES 
0 0 00 42 
030131 
000012 
0 000 32 

CC.OG ?2 
000040 

0 C 0045 


0034 21 

QCS024 

0CCO25 

3 03 0 2 7 

300077 

CO 0 1 0 5 

3CC112 

002117 

000033 
0000 36 
000123 
0000 45 
T 3 0 3 5 1 
0 3 00 62 

000041 
000043 
000130 
0 CO 0 62 
GO C G 61 
000067 

CCC10C 

000114 

000106 





J 001 27 

000113 000121 


0C0116 


41 



WTNO 


RIJN2 4 6C-?7- j 9 


0 w 62 G Q 


/ 


09/04/73. 


42 



*UN?4 LEV'LL 60-27-19 


OS 0 OO 4 


EUPP31TTNE EOPX(A,iJ) 

I N T E E E 9 A(l>, 7, TT, I U ( 1 6 ) t It- ( 16 ) 

0 E 0 0 Ef 


M = | 

o o o r? g 4 


I = l 

Cu"035 


J - JJ 

0 C 00 Q 7 

c 

TF (I .G“i J) GO TG 7 r 

0 0 0 * 1 2 

10 

K = 1 

" C0313 


T J = (J ft)/? 

0C0015 


T = «(T.J> 

000917 


IP (A H> . LE » T> GO TO 20 

0 C 002 3 


A { I J ► = ft ( 1 > 

000024 


fl(I) = T 

0 CQ325 


T = ACJJV 

030026 

?G 

L - J 

300027 


IF(* tJK Gt.T) GO TO 40 

C 0 00 34 


A C I J ) = A ( J) 

000034 


6 < J) = T 

CC3935 


7 = A(IJ> 

9CC336 


TF t A (I ). LE.T> Gn TO LQ 

003343 


A ( I J ) = A(I) 

3C0043 


M T) = T 

003044 


7 TT ft < I J> 

0 C 0 3 4 5 


HO 73 43 

000347 

7 n 

A (L 1 = MK) 

003051 


A OO = T T 

0 C 0 3 5 2 

4 0 

l = L - 1 

003354 


TF (A li ) . GT.T) GO TO 40 

003360 


T t = A f L ) 

0 C 036 1 

50 

»< - * *■ 1 

0 CO 053 


TF (A «<| .LT.T) GO r 0 

000366 


TF(K ,LE, l) GC TO 70 

000070 


tfcl-t.lf.. j-k) go TC GO 

0 C03T3 


U(M> s' T 

000374 


IU(M> = L 

000075 


T = K 

003076 


M = ¥ + 1 

000377 


GO T 3 *0 

0 00077 

60 

TLl»M - K 

oooi ,, i 


I U ( Ml = J 

300101 


,1 = L 

000104 


H = * ♦ 1 

000105 


GO T 3 53 

000105 

70 

M = V - 1 

003107 


7p ( m , rrj, C) PFTUPM 

OflOiil 


I = UCK) 

030112 


J = IU ( M) 

D 0 Oil 4 

80 

IFfJ-I • GE« 11) GO TC 10 

000117 


I F ( I • EQ . 1) GO TO 5 

033121 


7 7 T - 1 

000121 

«0 

I = T + 1 

003123 


IF ( I » FQ. J) GO TO 7C 

000124 


T = A ( T*1 ) 

000125 


IF { A ( 1 ) , LE.T) GO TO 9G 

003130 


X = I 

000131 

ICO 

A ( K v t ) - A(tO 


39/04/73 . 



SCPX 


?UN24 LEVEL 6G-27-19 


09/04/73 


000134 
000134 
"0 0 0137 
000140 
000141 


* * K - 1 

IF ( T ,LT» MO ) GO Tf 

ft (< + l) = T 

r,n rr '‘O 

r NQ 
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SC’X 


09/0*4/73 


RUM24 LEVEL 6 G »27-19 


c l ! B°ROGRAfc LENGTH 
000*27 

STATEMENT FDNC T ION REF -FENCES 

LOCATION GEN TAG SYM TAG REFERENCES 
ST AT EM r N'T N'fMREc REFE^ENCF** 


LOCATION 

G~\l TAG 

SYM TAG 

RFFEPENC 

ES 



c ca oio 

L 300 11 

c 

030121 




•*03013 

L 3 00 13 

lw 

000117 




3 CO 0 27 

U 03 23 

2 G 

0 0 0 0 22 




JO 3047 

L 3 03 37 

3 C 

3 0 00 67 

000C7C 



* r 3 353 

LOCO 41 

4 C 

0003 32 

000041 

0 0 00 46 

000057 

or 0 062 

n oo 46 

5 C 

0300 66 




000 100 

13*0 6? 

60 

03J3 Td 

OW7S 



CC0 10 6 

LG 0 0 67 

70 

0 000 11 

OCOOl? 

0 DC 1 24 


003115 

L 0 00 75 

eo 

030077 

CO 0 1 05 



0C3122 

LQ 31 02 

9 C 

000130 

C C 0 141 



0C01T2 

L 0 " 1 11 

103 

0301 37 





BLOCK NAMES And LEMjTHC 
VARIABLE PEFFPEHCES 


LOCATION 

GEN TAG 

STM TCO 

REF- RENCES 




000222 

00 10 

T 

0 J00 06 

QC0010 

oocoit 

0 00 0 36 

0 OC 07 0 




003115 

QC0122 




3 O ? 2 c 

VO 00 13 

IJ 

000016 

0 C Q 0 3 3 

03C042 



00*201 

! COO 02 

TL 

000112 





000161 

«0 ?0 fll 

TU 

000113 





003223 

^300 11 

J 

0000 07 

ccooie 

00 CC 14 

003027 

000071 




000114 

CG011T 

000123 



00*224 

V J 00 12 

K 

000014 

000047 

00 CO 62 

000101 

000131 

C f J 22 6 

vj*a 14 

L 

3000.30 

000050 

300253 

000066 

000 10 3 

000221 

V 3 3 0 07 

M 

0300 05 

000073 

OCCIOO 

c a o i o 6 

OCCiii 

CG3 15 7 

V 3 00 03 

T 

D30C20 

000026 

3 G CO 31 

0 00 0 37 

000045 




30 0 0 64 

000126 

000136 



000160 

VO 00 04 

TT 

0000 52 

0 CO 0 61 





START OF CONSTANTS 
000144 

START OF TFMdORA^IES 
000145 

START OF INJIR^fS 
000151 

EX T ERN A l PEFEOEM^S 

SYMBOL REFERENCES 

END C 3*1 43 
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SC?X 


RUN? 4 LEVEL 60-27-19 


Q9/C4/7 2 . 


UNUSED rCMFTLER S PA'E 
006500 


46 



RUN24 LEVEL 6 0 "27-1 9 


09704/73 


r 

r, 

r 

C 

C 

G 

r 

c 

c 

0 00004 


000004 
0 0 0004 
0000*4 
0 C0004 

C 

000004 


c 

00 0004 

G 

C 

000004 


C 

030004 


C 

OCOOQ4 


c 

G00004 


SUBROUTINE LO AOS ( KNTNC , IXTEN ) 


THIS RDUTINF COMPUTES THE LOAOS ANO/OR PRESSURE ON THE VARIOUS 
COMPONENTS PF IMF SKF A NO CALLS STREN WHICH DETERMINES IF THE 
COMPONENTS HAVE FAILED 

KNTmO MONTE CARL C TRIAL BRING PROCESSED 

IX N FLAG FOR INDICATION OF NOZ7L E EXTENSION 

IF IXTEN - 0 NO NOZZLE EXTENSION 
TF IXTEN t G HAVE NOZZLE EXTENSION 


DIMENSION CAS 1L <45 ) 

,CAS2L (45) ,CA S 2P ( 45 ) ,CAS3P<45> , 


1 

FWS P (45) 

, XNOZL (4 5 ) » XNOZL X (45 ) ,AF0L(45) , 


2 

AF0LX(45i 

,AFS°(45> , AFS PX (45) ,SSCAS1(10) , 


3 

SSCAS3C10 ) 

,SSNn?LX (10» ,SSAFDL (10) ,SSAFSP(19l , 


3 

SSNCZL (13) 

, SSAFOLX (10> , SS A FSPX(iO), 



4 

SSFWS°(1 C) 

,TH1 (3 ) 




COMM IN 

/ OAMAG / I F AL ( 7) 




COMMDN 

/ CNPTNS / VV 

,VH ,TTH , VVEt ( 5 I , VHOR ( 3) 

, THETA (3) 

COMMON 

/ SI AT / ST AT (245 




data 

TH1 / -10. , 

3. ,10 . / 




CASS 

LOAOS FOR PEA* 

ACCELERATION 

8/71/73 



DATA CAS1L / 35QC * 

, 7 GO u . ,35 00 . 

,4150. ,3800. 

,3690. 

» 

1 

4*00. 

,4350. ,3703. 

,3500. ,2103. 

,3500 . 

? 

2 

6600 . 

>5900. ,5200. 

,10400., 10100. 

,9800a 

9 

3 

5503 , 

, 3550. , 5500. 

, 1 0 1 G 0 . , 9330. 

,7903. 

* 

4 

S48G0 . 

,13600. ,12400, 

, 0 4 G 0 • , 5 20 C a 

, 3400. 

> 

5 

1 470 G • 

,12900, ,11100. 

,20900. , 1920 G. 

,17600. 

f 

6 

1 420 0 * 

, 8700. ,14200. 

, 246 G 0 • , 22000. 

,20000. 

$ 

7 

35C0O . 

, 3 ^5 0 0. ,30000. 

/ 



CASE 

LOAD FOR PEAK SL APOO WN -+10 DEG 

TO -10 OEG (45 

VALUES) 



DAT A C4S2L / 45*0./ 

DUMMY CASE LOAO- STRENGTH IS NOW UNIVARIATE- PUT IN AT L = 3 . 

O AS : HOOP MOMENT FOR. °RA K SLAPCOWN- 8/21/73 

DATA C AR5P / 3*530 C . »0COO. , 7300. ,5000. ;i45G0. ,11500. ,8530. , 

1 3* 53 0C. ,8 03 0., 73 00 . ,58 9 0., 14 50 0. ,1 1*500. *8530® , 

2 3*530 0. ,600 0. i 73 00 . >5800 . ,1453 0. , 1150 0. ,8500. , 

t 3*F30C«, 0090., 73 00., 5890,, 14530. , 1 1 53 0 . , 8 50 0 . , 

4 3*5300., 8000., 7300 .,58 00., 145 00., 11500., 8530./ 

CAS S PRESSURE FOR MAX SU3ME RGENCE 8/21/73 


n AT A CAS3P 

/ 10,5 

,11. C 

,10.5 

, 8.5 

, 9.0 


9.6 

, 3.0 

, 

1 

4.C 

, 5.0 

,12. 0 

,12.6 

> 12.3 


9.5 

,10.1 

> 

2 

10.8 

, 3.6 

, 4. 7 

, 5.9 

, 14.0 


15.0 

,14.0 

, 

7 

10.7 

,11.7 

,12. 3 

, 4.3 

, 5.6 


6.9 

,16.5 

» 

4 

18.3 

,16.5 

,12. 0 

,13.5 

,14.0 


5.0 

, 6. 5 > 

8 . , 

6 

21. 

,26. 

,21. 

,14. 

,16. 


17. 

,6. 

,8 . , 


6 13, / 

NOTICE EXTENSION, JC3NT WITH NOZ2LE EXTENSION 8/21/73 

DA t A XMOZLXyTQCC. ,3CCC. ,3903 . ,4800.,42QC . ,3800. , 580 0. ,4900 , , 

1. 4 2 G 0 , , 

2 5900. ,4500. ,693 0., 890 3. , 59 0 0, ,530 0 . * 900 0 74 00 . , 570 9 . , 

3 13330 . , 6700. , 13 33C., 98 00., 8200., 7009. ,13300., 106 00. ,7400., 

4 1SC00 .,90Q9. ,150 Gt. , 13100 ., 11 COO . ,9100 ., 18800 . , 140 03 , , 9300. , 

5 25, El, 13. E3, 25, E3, 2.E4, 16. E3, 13. E3, 32. £3, 21.E3, 14.E3/ 

NOTICE THPCAT LOAD "NO NOZZLE EXTENSION 8/21/73 

nATA XNO 7L/170 0., 14 CC., 1700. ,220 0. ,20 0 0., 1700., 2900., 260 0. ,230 C., 
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0 COO 04 


030004 

0G0304 

0 0*004 

000004 

000004 

000004 
0 00004 

000004 

000304 

000304 


ir*ns 


C - 


c - 


C - 


D - 

C - 
r - 
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10*05 


R1JN24 LEVEL 60-27-19 


09 / 04/73 


OC3Q04 

500304 

000004 


0C03Q4 
0 C COO 5 
000007 
000012 
0 00014 
^00017 
00002? 
000024 
0 00026 
000031 
003036 
000042 
000043 

030044 
0 003VT 

000051 

0CC054 

000097 

000063 
000366 
0 C0070 
000073 
0 00076 
"00100 
0 C 0 11 3 
000114 

000116 

000120 

000122 

000125 

000130 

000132 

000135 

000136 

000137 

000140 
00014 * 
0 0Q145 
" 0015 0 
000157 
000155 
0GO16C 


C 

c 

r 

c — 
c 


c 

10 


c --- 

15 


20 


25 

C — 


Sto'N'GTH FOR AFT SKIRT _ COLLAPSE PRE SS -<=A StL I NE W/C EXT.8/3C 

OATS SSA FSP /41 . 7, 46. , 52. 4 ,5 4. 7 , 57.6, 67, 7 ,70 . 6,73. ,77.3 , 31. 7/ 

STP-NGTK fDR AFT SKIRT - COLLAPSE PRES- EASEL INt WITH EXT 8/30 
□ ATA SSAFSPX/4 3, 7, 48. ,5 2* 4, 54. 7, 57. 6, 67, 7, 70. 6, 73. ,77, 3, 81. 7/ 
ST°:NGTH FOR FWD SKIRT - PRESSURE BASELINE 3/30 

DATA SSFWSF /I 0 . 9, 12., 13. 1,13. 7,14.4,16.9,17,65,18.2,19.3,20.4/ 

FIRST CHECK MAX SLAFCOWN BECAUSE ONLY IT CAN CAUSE SINKAGE 

TFLAG = 0 

CALL T Rl VAR ( CA S2L ,>LOC! ,0 1 

CALL • 1RIVAFCCAS2P »>PPES ,1 > 

ST atm. ) - ST A 7 <1 ) t xno 

PTAT(R) = AMIWKSTAT (2) ,XLOD ) 

ST AT (3 ) - 4MAXKSTAT (3) » XL OD ) 

ST A T {4 ) = ST AT (4 ) 4 XcRES 

STATUS) = ArtIKKSTAT <F» , XPRES ) 

ST A T ( 6 ) = AMAXKSTAT <6) , XPRES ) 

CALL SlAF' (XLOD , XFFfS ,IFAIL ,KNTMC ) 

IF (IF AT L .NE. 2 ) GC TO 10 
TFAL (2 ) = IF AL (7 ) + 1 

oFTIMN 

CAS 5 LOAD FOR PEAK ACCELERATION 
CALL TRIVAPfCASIL , XL CD ,1 > 

ST A T (7 ) = ST AT (7 ) 4 XLOO 

ST A T 13) = AMTNKSTAT (81 ,XLOO ) 

ST At f 9 } = AM AXKSTAT (9) , XL OO ) 

CALL $T^N(SStA51 ,>LOD ,KF AIL » 

C A5 - PRESSURE FOR KAX SUBMERGENCE 
CALL T RI AR (CA S3P ,XFRES ,1 ) 

STATU 3 » - STATU P) + XPRES 

ST A T (111 - AMTN1 (STAT (11) , XPRES ) 

STATU?) - AMAY1 ( STAT ( 12 ) , XPRES ) 

CALI ? Tt> £N ( C S CASS ,X°PES ,JFAIL > 

TF{ I r A I L , NE » 1 .AND, KFATL .NE. 1 .AND. JF AIL .NE. 1> GO TO 20 
IF AL (3 ) = IFALC31 + 1 

TFLAG - 1 

FORKA PQ SKIRT FR.ESSIRE 
CALL TPlVAP(FWSP , XFRES ,1 ) 

STAT (13) = ST AT ( 1 3 ) + XPRES 

FT A T ( 1 4 ) = A MINI ( STAT (14) , XPRES ^ 

STATUS) = AHAXi (STAT (15) , XPRES 3 

CALL S T REN (SS F MSP ,XPPES , IE A I L ) 

TFCIFATL .EO. 0) GO TO 25 
IFAL (4 ) * IF AL (4) +1 

IFLAG = 1 

IF ( T XT EN (NE • 0) GO TO 100 
NOZ ?L E L O A C HITHOU7 EXTENSION 
FALL TOI«AR(XNOZL ,XLOD ,1 ) 

STATUS) = ST A T ( 1 6 ) + XLOO 

STAT (1 7 ) = A M INI ( STAT (17) ,XLCD ) 

STA T (13) = A V AX1 ( STA T (1 8 ) ,XLOO ) 

CALL STREN < SS NO 7L , XL OO ,T FAIL ) 

IF(I C ATL .EQ. G) GO TO 30 
TFAL (5) a IF A L (5 ) + 1 
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IPADS 


RUN24 LEVEL 60-27-19 


39/04/7 3 


CGQ161 

003162 
” 00165 
0 30167 
000172 
030176 
C 0 0 177 
"C0202 
000207 

CCG204 
000207 
0 CC213 
000214 
C "0217 
0 nn?7? 
000224 
0 0 0 2 2 7 
033230 
0CQ233 
0 C0?3*5 

000276 
C C 024 0 
Q 0 024.2 
0 00245 
0 C025Q 
000252 
000255 
OC0256 


3C0257 
300262 
000264 
0 0267 
00027? 
000274 
000277 
000300 

0 0 0331 
000304 
OCQ310 
0C0311 
000314 
000317 
000321 
0 C 0724 
0 0 072 s 

0 C 0330 
000332 
00033? 


tflas = i 

c ftp T COMP LOAD NO WCZ 7 LE EXTENSION 

3 0 PAIL ' r RTVAP(AFCL ,X1.CL ,1 ) 

ST A T (19) = ST A T (19) + XLOO 

STAT<2J) - A N TNI ( S T AT (20 J ,XLOD > 

ST A T (21) = A«AX1 (STAT (21) ,XLO0 ) 

CALL STR£N(SSAFGL ,VLCP , IFAIL ) 
TF(TFAtl .EG. C) GO Tp 35 
TFAL (6) = I F AL (6 ) + 1 

TFLAO = 1 

f AFT SKIRT PRESSURE K NOZZLE EXTENSION 

35 CALL TRIVAPIAFPF , XFEES ,1 ) 

XPPFP = AMAX1 ( XFDPS , C . ) 

STAT (2 °) * S T A T ( 2 2 ) + XP»ES 

S T A T (?3> = A MINI ( STAT (23) , XPOES ) 

STAT (2 4 ) - A ^ AX1 ( ST A T (24) , XPRES > 

TALL STRSMESAFSP ,XPPES , IFATL ) 

T p ( I c A T L ,£0* C) DC TP 43 
Ifal ( 7) = TFAl (7) + 1 

40 IF(TFLAG . EP* 1) RETURN 
IF AL ID = IFAL (1 ) + 1 
p c T U 9 X 1 

C NOZTL" LOAD WITH NC2ZL^ EXTENSION 

101 "ALL TPlVAR(XNOZLX ,XLPO ,1 > 

STAT (15) - S T A T ( 1 6 ) * XLOO 

STAT (17> = A MT N1 (STAT (17) ,XLOQ > 

ST AT (l 3) = AMAXl ( STAT (id) , XL OD ) 

"ALL FTPEMSSNOZL* ,XL"D , IFAIL) 

TF ( T" A I L ,EQ. 0 > GO T C 105 
IFAL (Si = IFAL (5) + 1 

IFLAS = t 

C 4 F T DOME LEAP WITH NOZZLE EXTENSION 

105 "ALL ' t RTYAR(AFCLX ,XLOD ,1 ) 

STAT ( l g ) = S T AT ( 1 9 ) + XLOO 

ST A T (2 3) = AHTN1 ( STAT(20) ,XLOO ) 

5^(21) = A N A XI ( ST AT ( ?i ) ,XLPO > 

CALL STRENCSSAFOLX jVLOP , IFAIL ) 

TF { I" 4 IL .EQ. 0) Of TP 113 
IFAL ( 5 ) = TFAL(R) ♦ 1 

TFLAG = 1 

C aft SKIRT PRESSURF WITH EXTENSION 

117 PALL T RI VA R ( 4 F S e X , XFPES ,1 ) 

X»R ft = AHAX1 (XFP«"S ,0. ) 

STAT ( 2 2 ) = ST AT ( 2 2 ) *■ XPR^S 

ST A T ( 7 3 ) = AMIN1 (ST«T(23) ,XPRES ) 

ST A T ( 2 4 ) = AHAX1 ( STAT(24) , XPRES ) 
CALL STREN (SS AFSPX , XPRES ,IFAIL ) 

IF ( I- 4 IL .EC. C) GO TP 120 

IFAL (7) = IF AL (7) + 1 

123 IF ( I r L AD ,EP, 1) RFTIJPN 

IFAL (! ) = IFAL (1) ♦ 1 

RFTURN 
PND 
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LC^ RUN2 4 LEVEL 60-27-19 09/04/73. 


SUBPROGRAM LENGTH 
001476 

ST ATE HE NT FUNCTION *E FE FENCED 

LCCATXOM GEN TAG $YM TAP R£F£ RF K'CES 

STATEMENT MJMBE D °EE p .RENCPP 

LOCATION GEN TAG 

CC0345 L C 30 73 

0C0 0*4 L 0 0 n 4 4 

0C1116 1*1064 

0 01 140 1101 Cl 

COO 167 10*120 

0 GO 20 5 IT 0135 

0 t J 231 10 0153 

CCC236 100160 

0 CO 260 10 3 175 

f 0^302 130212 

CC132S 100230 

BLOCK NAMES AND LENGTHS 
0AMAG - CT0G07 ^NHTNS - OOGClf STAT - 000030 

VARIABLE RE C ER‘EMCEE 


LCCATITN 

SEN TAG 

SYM TAG 

REFERENCES 





GC1347 

A 0 00 10 

AFOL 

000163 





«3Cl 124 

AiOOll 

AFnLX 

000260 





001201 

eooo 12 

APS* 5 

000205 





0 Cl 2 56 

100013 

APS°Y 

000302 





0 GO 35 4 

? COO 01 

CASH 

3 GO 0 45 





COT 471 

e oco 02 

CAS2L 

000005 





0*0506 

a COO 03 

CAS2F 

000010 





0 CO 56 3 

M3 DO 04 

C A57P 

000064 





O CT 640 

icon C5 

FWSR 

000116 





0 Cl 473 

VC0Q4G 

IFAIL 

330034 

OO0C4C 

001102 

0 G 0 1 31 

000134 




000157 

000176 

CGC201 

000223 

00022E 


a 


000254 

000273 

0GC276 

0 OG 320 

0 C 0 3 23 

OCT COQCGi 

13 00 26 

IF AL 

000234 

0C0331 




0 C 1 470 

^COO 35 

IFLAG 

000005 

CC u 1 1 5 

000137 

03016? 

000204 



000257 

000301 

OC0326 



0 Cl 47 5 

V000 42 

JF AIL 

0000 77 

Qrnirc 




3 Cl 474 

voca 4i 

KFATL 

000060 

000105 




0C1771 

* 7 03 17 

SS AFOL 

000175 





001427 

1000 22 

SS AFPL V 

000272 





001403 

#0 00 ?0 

SSAFSF 

300222 





0 Cl 441 

103023 

SSAFEPy 

000317 





CC1333 

AOOG 14 

S5GAS 1 

0000 57 





001345 

100015 

S S C A S. 3 

0000 76 





001 457 

*0 00 24 

SSFW? F 

0001 33 





301415 

1000 21 

SSNOZl 

000153 





0017*7 

1O0 fl 16 

SSNOZL X 

0002 50 
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LCADS 



RUN? 4 

LEVtL 60-27- 

IP 

OP/04/73. 

C C CC0CG3 

1(10" 32 

S T AT 

300013 



• 

CC0013M2 

1 0 COTrl 

THETf 

NOME 




101465 

MOO 25 

TH1 

NONE 




QC3 Oicrra 

A 0 00 30 

VK)P 

NONE 




fc cnc7c:7 

l C 00 27 

MEL 

NON ff 




3C1471 

700036 

XL no 

000006 

0C 00 13 

OCCO 32 

000045 000050 




000141 

CC0144 

000154 

000163 0 CO 166 




300236 

C C 0241 

CCC251 

0 00 260 C CO 26? 

CC1 715 

i j 0Q C6 

XNOZL 

000141 




0 r 0 77 2 

0 0 0 0 07 

XN0 7L V 

300236 




0C1472 

\M 00 37 

XFD^s 

3 0 0010 

000023 

3CCC33 

000064 000067 




000116 

CC0121 

000131 

000205 000210 




000302 

CC03C5 

0CC320 



START OF CCN'sTfiWTC 

0GC335 

STflPT nF 
000342 

START OF TNOIRE^T'? 

C 0 0 35 4 

EXTERNAL pcFFoErcc; 

SVMQOL 3E e E FENCES 

TFT V AR (C03C7 CGG012 000047 000066 000120 000143 C00165 

:j?24C 0 0026 2 0G07Q4 

SI A P 3 0 CO 36 

S7PFN 1 C 00 61 0001CG 0001 32 0001 55 00 0177 000224 C-CC2 C 2 

130721 
FND ' 3 n "* 34 

UNUSED CCKFILER SPAO” 

000500 
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RIJN24 LEVEL 60-27-19 


09/04/73 




*U959UmE TRlVAR(TAtL ,XOUT .KFLAG ) 


r 

THIS ROUTINE 0 C^S A SPECIFIC TRIVAEIANT INTEPPCL ATION 


c 

taof. — 

TABLE THAT FAS FUNCTIONAL VALUES IN IT 


c 

xnuT — 

VALUE CON PUT EC BV POUTINE 


c 

-- 

FLAG TC INDICATE IF A NEW TPlftL IS BEING PROCESSED 


r 


IF KFLAG = C MEW TPIAL 

1 

c 


IF KFLAG = 1 OLD TPIOL 

00C005 


COMMON / 

C NOT MS / VV j VH ,ITH ,VVEL<5) ,VH0P(3) ,THETA(3) 

0 G 00 0 5 


9IM r NSTOK TA»l <1> 

^00005 


IF(KFL4G 

•NE. 0) GO TC 40 


c 

0 0 NOT 

KEEP TO RECALCULATE LOCATICN SINCE NOT A NEW TRIAL 

oocao 6 


- 0 


000006 


JJ = 9 


000907 


IT s. n 

; 

0 00010 


no if Ks 

1.5 

OCOOiF 


KK = 6 

- V 

o cooif 


IF(Vm ( KK> ,LE. VV) GO TO 15 

000022 

19 

CONTINUE 


000024 

15 

TF(<K .E 

o 

• 

'« 

7< 

A 

11 

r* 

000027 


no I- 

1.3 

000034 


JJ = 4 

- J 

000035 


iF(VKrs(jj) ,ie, vh) go to 25 

000041 

2 r 

CON T 1 NIJ C 


9 C 09 43 

25 

TF(JJ .50. 3> JJ = 2 

000046 


no t(j j- 

1.3 

0 0 C 0 53 


11 = 4 

- T 

0 Q 00 5 4 


IFd^TMID .LE. TTF) GO TO 35 

0 3 CO 60 

3 C 

r ON T TMJS 


000062 

35 

IF ( T I .SO. 31 IT = 2 

0 COO 67 


LOG = 

II ► 3 * (JJ-i) 4 9 * (KK-1J 

0 C CO 73 


LOCI a 

LCC f 9 

000075 


nvv 

VVFL(KKfl) - VVEL ( K K ) 

000077 


07 

VV - VVEL (KK) 

0 Q 010 0 


OVH - 

(VH - VHOP(JJ)) / (VHORCJJ+1) - VHOP(JJ)) 

000104 


OTH = 

( TTH - THETAdB) / (THETA(IIM) - THETA(II)) 

000113 

40 

G7 

TAPL( LCC1+4) 

000114 


G6 = 

TAPL (LOCI 4-3) 

000116 


Gf - 

TAPL ( L Cd + 1 ) 

000117 


64 

TABL(LOCl) 

000120 


6.3 = 

T ABL ( L CC+ 4 ) 

000122 


r,2 = 

T A°L < t CC+ 3 ) 

000123 


Cl 

TAFLU CG+1) 

000125 . 


G n = 

TABL(LCC) 

0 0 Q 1 26 


HGO 

(G4-GC) / DW 

000139 


oGl 

(G5-G1) / DVV 

000132 


no2 = 

(G6-G2) / DVV 

000135 


DG7 - 

(G7-G3) / DVV 

000140 


Gfl - 

gl + ov * or-9 

009147 


Gn - 

Gl 4 OV * DC-i 

900145 


Gn - 

G2 ♦ CV * OC-2 

000150 


GO 

G3 ♦> CV * DG3 

000152 


GAA 

GA ♦ C VH * (GC - GA > 

000155 


GBB 

GP 4- OVH * (GO - G3 ) 
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TPlyflR 


RUN24 LEVEL 60-27-19 


09 / 04/73 


0C3160 

000163 

*00163 


XOUT = G A A + OTH * ( GB9 

RETURN 

EMH 


GA A ) 
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IRTtfAR 


RUN24 LF Vt L 60-27-19 


ag/n ^/73 


SU Q RROGPW LENGTH 
PC0252 

STATEMENT FUNCTION 7£ FS RENC- S 


LOO AT ION ! i:W TAG 


SYM TAG REFERENCES 


STATEMENT NUMBER PceepeKC.rS 


LOCATION S~N TAG 
rm?5 I t<n?? 

C0OD44 LC0Q41 


TC0063 100055 

OCT 112 1 0 00 66 


SYM TAF 

15 

?5 

35 

40 


REFERENCES 
000022 
0 0 00 41 
000060 
0000 06 


BLOCK NAMES AND LENGTHS 
CKQTNS - 0 1 0 0 1 6 


VARIABLE RE C ERcN^ER 


LOCATION 

SEN TAG 

S Y u TAG 

REFERENCES 




\| 3 " 0 3 6 

5G0 

000132 

OC 0 141 



C CO ?41 

VO 0 0 37 

noi 

0301 35 

0G0143 



C0024? 

VC 03 40 

CG2 

000137 

0001 46 



0C0243 

VC 00 41 

0G3 

000142 

GC015C 



CC0227 

VO on 25 

DTH 

000111 

000162 



CC"?25 

VO 00 23 

nv 

0001 01 

0 C 0 1 40 



m??e 

V 0 3 f] ? 4 

CVH 

000105 

000154 



3 CO 2 24 

V000 22 

DVV 

000100 

000130 

OCO 1 34 


0 CO 2 4 A 

V 0 0 0 42 

GA 

000144 

QG0153 



000250 

n "G 46 

GAA 

000156 




CCO 245 

vn O n 43 

G F 

000147 

0CQ156 



000251 

VO 00 47 

GP9 

0031 61 




0 CO 246 

VOGO 44 

GC 

0001 51 




0 C 0 2 47 

VO 00 4 5 

G n 

300153 




0 CO 2 37 

VO DO 35 

G? 

000127 

000141 



CC0236 

VOOG 34 

G 1 

000125 

C00144 



C CO 2 35 

V) O'’ 33 

G 2 

000124 

000133 

OCO 146 


0C0234 

V 0 00 32 • 

G3 

300122 

0CS136 

T0C151 


u CO 233 

VO 00 31 

G4 

000121 

000126 



C 00 2 3 2 

VOOO 30 

G5 

OQOI 20 

OC 0 1 31 



C CO 2 31 

V 0 SO 27 

G6 

0001 16 

COO 1 33 



cn 23C 

VO ^0 26 

G 7 

000115 

coai'se 



0 GO 2 21 

VOOO 16 

T 

000050 

CO 0 0 52 



C CO 2 16 

VOOO 11 

II 

000010 

0 C 0 0 55 

00 0 C 67 

OOQC71 

G CO 22? 

vo on 14 

J 

000031 

000033 



,3 CO 215 

V COO 1C 

JJ 

000010 

000036 

003544 

003066 

C CO 21 7 

VOOO 12 

K 

000012 

oco n 14 



C CO 214 

V G '■* G C 7 

KK 

0 003 07 

OCO 0 17 

330025 

0 03C67 

C CO 2 2 2 

VO SO 20 

LPC 

300074 

OCOll 2 



00)223 

VO 00 21 

l 001 

03 00 75 

003113 



OCO 01 3001 

IC^O 03 

THEY A 

3 00 0 56 




CC0G02C01 

VCO* 17 

TTH 

000052 

C001P? 



G COO 0l n 01 

V 00" 15 

VH 

0 0 00 33 

C 0 0 1 0 3 




CQ0104 
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T F I ^ P 



RUN? 4 

LE7EL 60-27-19 

c r 3 oioo ft i 

'coj ce 

yhOR 

0Q0P 37 

000102 

0C93OQ r 0i 

VCOO 13 

vv 

pno i4 

0000 77 

m C03r j j 

\ Cl] 01 

WEI 

0 0 DO 20 

000676 


START OF rC'ISTAMTS 
000166 

START OF TEHPOPR°I r ^ 

30016? 

START OF ItOIREPTS 
O0C12O7 

EVTERNAL fi£ c £PENC c S 

SV1BOL RF PERtNF-S 

FKO 3031F5 

UNUSED COFIIFR SP^OE 
0 C670 P 


09/04/73, 


56 



RUN? 4 LEVEL 60 - 27-19 


09 / 04/7 


C COCO 2 
0 C0GQ2 
00000? 
00000? 
00000? 
0C0004 
ncooii 
0P0012 
fl COO 1 3 
030019 
000017 
0 COO 20 
000029 
3 00027 
0 00Q30 
Q0G035 
000044 
0 C 009 3 
000062 
000071 

oaoiso 

000107 
000120 
000131 
0 POt 42 
000153 
C 00 1 64 
000175 
000206 
000217 


OC0?20 


003220 


0 00220 


000220 


SUBROUTINE WRIT (V^L ) 

C * » 

r THIS ROUTINE WRITES cut the damage condition summary 

C - 

rowMOt' / STAT / ^TfiT(?4) 

COMMON / PAMAG / IF At (7) 

COMMON / NUK9F R / NTflAL 
COMMON / CSTOAT / PEF<7) 

XX - c-LOAT (NT fil^L ) 

PO 21 J=l,7 

pto( j) s IFAL ( J) /XX 
20 PONTTNU- 

NOS INK = MFIAL - IFAL(2) 

STATED = STAT(l) / N T RIAL 
ST AT (4 1 - ST A T (4 ) / NTRIAL 

no 25 )=7,22,7 

S T AT ( J ) - STAT(J) / NOSINK 

25 COMTTNUE 

WRIT- (6, 2500 ( ST A T (I ) ,t -t * 6) 

MPIT;(6, 2501) (STAT(I) ,1=7, 9) 

WRIT: ( 6, 25C2) ( ST A T (I ) , I = 1 Q , 1 2 > 

WRITE (6, 25L3) (STAT (I) *T = 13 ,15) 

WPITC (6 J 2504) ( ST A HI > ,1 = 16 ,1 8) 

WRITf{ 6, 25C5) (ST A T < I ) >1 = 19,21) 

W°TTE (6, 2506) (ST A T (I ) ,1 = 22 ,?4) 

WPI T E (6, 2999) VEL , N TP I A L 

WR IT R( 6 , 2G01 ) IFAL(l) ,PER(1> 

WRIT" (6, 2002) IFAL ( ?) ,PER(?) 

WRITSCS, 2GC3) TFAL(3) ,P c !R(3) 

WRITE ( 6, 2GC4) IFAL (M ,PER(4> 

WRIT- (6 , 2CG5) IFAL( C ) ,PER(5) 

VJ9IT; (6, 2006) IFAL (6) ,P C R(6I 
WRITE(6, 2007) IFAL (7) ,PER(7) 

2cgq FORMAT (1H, 35X ,24HDAFAGF CONDITION SUMMARY,//, 

1 36X,F4«C»llH METERS/SEC ,2X, 

2 15HDESIGN VELOCITY,/, 

3 3 6 X , 14 , 1 EH MCN'TF CARLO TRIALS,//* 

4 6 X , 16HP AMAG E CONOI TTON , 5 3X , 

5 9HNUMREP OF , 8X , FHPROB # OF ,/, 

6 75X ,J 1H OCCUR FFNC r S , 6X , 1 0 HOC CUR PENCE) 

2500 FCRM1T (1HC,5X, 42HLCAC STATISTICS FOP MAX, SLAPDOWN-NOT USED,/, 
1 IGX,4HMFAN,2 X,F10. 2,2X, 7HM I NIMUM j 2 X , FIG , ? , ?X , 7PM A XT MUM , 

? 2X,P10,2,//, 

3 6 X ,37HH OOP MCMFNT FOR MAXIMUM SLAFCOWN ,/, 

4 1PX,4HMEAN, 2X,c 10, 2,?X, 7H MIN IMU M,2X, FIG. ?,2X,7H MAXIMUM, 

5 2X,P10.2) 

2531 FORMAT (tHO,5X,?7HLOAt STATISTICS FOR PEAK ACCt IF R AT ION , / , 

1 1 aX,'4HMEAN,2X,F!C.2,2X, 7H MINIMUM ,2X ,FlC . 2 ,2X ,7HMAXI MUM, 

2 2X,F10.2> 

2512 FORMAT (1H0,5X, 4 2HPR ESSURE SATISTICS FOR MAXIMUM SUBMERGENCE,/, 

1 10X,4HMEAN, ?X,F1C. 2,2 X, 7HMI NIMUM , 2X , F10 . ? , 2X , 7HM A XI MUM , 

2 2V,F10.2) 

2513 FORMAT (1HG,5X, 36HPRFSSURE SATISTICS FOR FORWARD SKIRT,/, 

1 i CX,4HMFAN»2X,F 10,2, 2X, 7H MINI MU M,2X,F10, 2, 2X,7H MAXIMUM, 

2 ?X,F10,21 
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nco?20 


noo?2Q 


000220 


0 C022C 
000220 
000220 
000220 
000220 
000220 
000220 
000220 
0C0221 


W C I T RUN? 4 LEVEL 6Q-?7-19 09/04/73. 


2504 FORMAT (IRC, 5X,??HTHRrAT SATISTIFS FOR I^OmE,/, 

1 i CX,4HM£AN,2X,F10.2,2X, 7MHI NIMU* , 2 X , F 10 . 2 , 2X 7HMAX I MUM , 

2 ?X,F10.2) 

2505 FORMA T (1H0 ,5X , 27HIO AC7FPESSURES FOR AFT DCMF,/, 

1 1 GX,4HMEAN, 2X,F1C.2 ,2 X, 7HMINIMUM, 2X,F10. ?,2X,7HMAXIMUM, 

2 ?X,Fn»2) 

2516 FORMAT (1F0 ,5X , 32HDpc.SSl'0£ SATISTICS FOR AFT SKIRT,/, 

1 i CX,4HMcAN,2X,FiG.2,?X, 7HMIMMUM,2X,F1C.2,2X,7HMAXIMUK, 

2 2X,F10.2) 

2001 FORM ?T flKC ,5X, 9HNO DA M AG* , 62 X , 14 , 1 5X , F 6 . 4 ) 

2C1 2 FORMAT (1F0, C X,7HSINKAG C ,64X.I4,15X,F6.4> 

2f93 ro^MS^d HC» C X, 9H2 F FFMENT , 62 X » T4 ,15X , F6 .4 ) 

2004 FORMAT (1H0,5X, 13HFORFAPD SKIRT ,58X,I4,15X,F6.4) 

2 00 5 FORMAT UH0,5X,6HNOZ7tF,65X,l4,15X,F6.4) 

2006 FORM AT (1H0 ,5X, SHAFT CCME ,>6 3X , T 4 , 15 X, F6 ,M 

2007 FOR M AT (1H0,5X,9HAFT FK IRT , 62 X , 1 4 , 1 5X , F6 , 4 ) 

RETURN 

FMH 
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KPIT 


RUN24 LFV~L 6G-27-19 19/C4/73 


subprogram length 

QC 057 ? 


STATEMFNT PIJNCTTON 9 1 F E 9 E W" E S 

LOCATION TAG SYM TAG 

STATFMFNt NUMBER RF c *' 1 ENCtF 



LOCATION 

GEN TAG 

SYM TAG 


[0)507 

*13263 

20 01 


r ci 51 4 

CO 127C 

2012 


CO) 5 21 

*10275 

2 si 03 


CC3526 

C103C2 

2 G 04 


CC3 574 

C1G31C 

2005 


C 03 541 

"00315 

2006 


001546 

00)322 

2007 


00*303 

**0057 

2500 


0 00 747 

030123 

2501 


0*1767 

0031 43 

250? 


003407 

01*163 

2513 


OF] 427 

000203 

2504 


0 C 1 4 4 7 

011223 

2505 


COO 4F7 

"01243 

2506 


0 C 3 22 6 

0011 02 

?c9o 

BLOCK 

NAMES ANO LEW 

IT MS 


STAT 

- 030030 

TAM AG - 

3010 07 

VARIABLE PEPFRFNRPS 



location 

SEN TAG 

SYM TAG 


00)571 

VC 00 11 

I 


001000012 

A103 r? 

TFAL 


003567 

in 0) 07 

J 


•3 Cl 5 71 

V 3 10 10 

NO SINK 


gcooinros 

V 001 06 

V TRIAL 


CC00C0C04 

?orc 03 

PER 


CPOOOOC11 

A Q 0i3 01 

STA? 


000 566 

\1 *0 C5 

XX 


START OF CONSTANTS 
000224 

START OF TEMPORARIES 
000557 

START OF TNOTPFFTS 
000564 

E XTERNAL RE C FRE NCE^ 

SYMBOL c r F£ REN r ES 

CUT°TC 133032 G0C134 


REFERENCES 


REFERENCES 
0001 21 
01013 ? 

0311 43 
001154 
000165 
0101 76 
00021 ? 

0 00 3 30 
000136 
0000 45 
0301 R 4 
110063 
HOG* 72 
000101 
000110 


NUMBER - 000001 CSTOAT - 000007 


REFERENCES 


NON r 




3 000 0 7 

0 C 0 1 2 5 



3330 05 

0C0022 



000016 

000025 



0 003 C3 

000014 

oec lie 


013111 

001127 



311015 

0 C 0 0 2'4 

000*33 


000004 

ccooir 



DO GO 35 

000041 

300043 

C 01 0 4 4 


0 CO 050 
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WPIT 


9UN24 LEVEL 60-27-59 


09/04/73 


PKQ 


m 063 

n ao 77 
100120 
10*14? 
000164 
T 0 02 C6 
^31223 


CO 00 5 7 

cooiec 

000124 
CO 01 4 6 
C 00 17 G 
000212 


001061 
0001 04 
000! 26 
003151 
000172 
000214 


C 00 06? 
CG01C6 
TC013C 
000152 
■C 0 0 1 7 4 
000216 


0 0 D O 66 
OOCIO 7 
OC 01 31 
000153 
000175 
000217 


000070 
000113 
G 00 135 
000157 
C 3 0 20 1 


UNUSLO CCHF^lep PP&CE 
0 C5400 


000071 
000115 
000137 
0CQ161 
G GO 20 3 


60 



0 0 0*3 0 5 
COMO'S 
OC 0005 
CC0097 
000016 
000023 

0Q0Q33 

000051 


030366 

000075 

r? 0 r> 1 0 1 
000102 
000103 
000104 
000104 
000106 
000113 
000117 
000124 
000125 
000126 
000131 
00013? 
000134 
000135 
000136 


RUN 2 4 LEVEL 6C-27-19 09/04/73 . 

subroutine y y 7 (x ,y ,Z ) 

C — 

C GXvE N 4 COLUMN OF NAJCE CYCLE TIM£S,X,A OCLUMN OF MAJOR CYCLE 

C VALUES , Y t THIS FUNCTiCN FITS A THIPC OEGRcF POLYNOMIAL TO THE 

C VALUES OF Y TO COMPUTE THE DESIRED VALUE CF Z AT TIME X. 

C» •- 

01 ME + 3 TO N X C 1 ) ,YIJ> ,7(|) 

K = * 

) = ? 

5 n = (x (j-i)-x(j) ) ^ (Y< j)~x( j + i> ) * -X(J + 1>» 



IF (APS(O) .LE, l.E-6 ) GO TO 20 




7(K + 1> 

= (Y( J-l) - Y ( J> ) 

* ( x( J) -x < J+l> ) - 

CY< J)-Y( J+l) ) * 


•» 

(X < J-l > -Y( J>) 





7( K + 2) 

= (X ( J-l) -X (J ) > 

* (XlJ-tl +X(J) ) 

* (Y(J)- 

Y ( J + 1 ) ) - 


1 

(X( J)-X (J + l> ) 

* (X(J) + X(JH)) 

* <Y { J-l) -Y ( J) ) 


7(K+3> 

= X(J-l) * X(J) 

* Y (J<-1) * ( X { J - 

1)-X( J)> 

+ X (J +t > 


1 

X(J-l) * Y(J) 

* (X(J+1)-X<J-1) ) + X(J> 

♦ X (J+l) 


2 

Y(J-l) 4 (X(J) 

-X( J+l ) ) 




no IT Ta 

1 » 3 




10 

7(X + T) 

= z(yh) / r 




15 

IF ( K • Mi 

J - T 

X 5 1 

GO T H 5 

. 0 ) GO Tp to 




20 

2 f K + 1 > 

- n. 





IF { X (?) 

.EO. X (7) ) GO TO 

30 




7 (K + ’1 

= ( Y { 3 ) -Y ( 2 ) ) / 

( X( 3) -X (?) ) 




7(K>;> 

GO T n 15 

= (Y ( 2) * X (3) - 

Y ( 3) * X (2) > / 

( X ( 3 ) - 

X (?) ) 

30 

7(*+?) 

= C. 





7 ( K+ 1 ) 

CO TO 15 

= (Y<?)+Yf3>> / 

2. 



4 C 

Z(7) S 

X (2) 





7(9) 

R^TUTN 

fmh 

xm 
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RUN24 LEVEL ftp-27-19 


09/04/73 


yy y 


SUBPROGRAM L^HGTH 
0 "02 31 

STATEMENT F'|NC t ion h^ffnces 

lc^attdn G£M tag sym tag ^efepenc es 

STATEMENT NUMBER RE=£"ENCES 

LOCATION GEN TAG SYH TAT REFERENCES 

C COT IQ 19Q011 5 0 0 010 4 

CC 1 10? 100125 IE 000124 0C0132 

E D J 1 0 5 109032 20 0000 21 

000125 109340 30 000110 

0CJ133 l COO 43 40 000102 

9 LOCK NAMES ANO LENGTHS 

VARIABLE RFFEPENrE^ 

LOCATION GEN TAG SYH TAC- REFERENCES 

000227 100006 P 9 J 0016 000072 

C CO 230 1jG"9 ,, 7 T 990067 

0n??6 V 0 9 0 0 5 J 303007 GC0010 00002? 00010 3 

CQ1225 V0 33 O4 K 330006 000023 0CC07Q 000192 000105 

START OF rCNSTANTS 
000141 

START OF TEN POP A° I FF 
000145 

START OF INOTPE^ts 
0 CO 211. 

EXTERNAL EPFNCES 

SY180L TEFFOfNCEF 

C N9 10^140 

UNUSED CCMFTLRR SPACE 
006500 
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RUN24 LEVEL 60-P7-19 


09/04/72 


FLINCH ON E VAL< X , T ) 

r, -- 

r GIV«H A COLUMN CF MAJCR CYCLE VALUES, X, AKC A TIME T, THIS 

C FUNCTION IMERPCl 6 T ES FOR A VALUE CORRESPONDING TO TIMF T, 

C - - 


onao* 


PT M c N S T 0 N X(i 

) 




000304 


Y s (Y (1) 

♦ 

T ♦ 

X (?) ) * 

T 

♦ X( 7) 

000007 


7 - (X(4 > 

* 

T ^ 

X (E > > * 

T 

*■ X ( 6 ) 

000013 


IF ( X ( 7 } .EG. 

XI3) 

) cg tp 

10 


000016 


77 s <X(6) 

- 

r ) 

/ <X(«) 

- 

X ( 7 ) ) 

0 C 00 2 1 


Fvftl - Z 7 

* 

v + 

( j Z7) 


Z 

000026 


RETURN 






030326 

10 

c V AL = (Y 

4- 

7) f 

2. 



0 C00 3 1 


P C TUTN 






000032 
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RUN24 LF \i r L 6r-27-iq 


suborogfdm length 

occo73 

$T ATEME N'T FJMCTTQN REFERENCES 


LCCATT9N «FM TAG ?YH T A C REFERENCES 
STATEMENT K'lMBEP R<5F ?oe NTF? 


LOCATION G c N TAG STM TAG REFERENCES 

303027 130015 13 0 300 15 


BLOCK NAMES AND LFNGTHS 


VARIABLE 

R£e ERcN°FS 





LOCATION 

GEN TAG 

SYM TAG 

REFERENCES 


0 03 0 67 

V3^3 33 

E VAL 

0500 26 POO 0 31 


o too TO 

V 3 00 C4 

Y 

030310 0C0C23 


orooTi 

VT 00 05 

7 

300013 CCGQ24 


00307? 

V010 06 

If 

0000 16 

START OF 
000035 

CCNSTAHTS 




START OF 
0 0 n 0 4 ^ 

TEMPORARIE 

t 



START OF 
000054 

INC I RE CTS 




external 

NEE FpENCcs 





e\MROL 

s£FESENCF c 




CNO 

33*0 34 




000027 

OCOC27 


UMJSEO CCMFTLeo SPA3E 

0 07000 


09/ 04/7 i . 
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J 00005 

000005 
0 00005 

0 A3 6 

"00310 

000312 

000014 

000031 

000334 

000034 
000035 
00 0046, 
000055 
CO 00 5 7 
0COO62 
003063 
000064 
QQ0065 
000066 
000370 
C 00 0 76 
0Q3076 
000100 
000101 
000104 
000107 
OOOtil 
000113 
000116 
030122 
000127 
000134 
000141 

000143 

000147 


RUN24 LEV^l 6 0 "2 7 -1 9 09/04/73. 


SUBROUTINE C 05 TFL t (Prcsi ,NUM , T£P ) 

c— - - 

C THIS ROUT IMF ELCTS T HE REFURBISHMENT COST VS. TERMINAL VELOCITY 

C AMO IMS DEVELOPMENT AL COSTS, REFURBISHMENT COSTS A NO THE TOTAL 

r of THE TWO 

C RROST t>rrURBT$HKENT COST FOR THE DESIGN VELOCITIES 

C NUM TOTAL NUMBER OF DESIGN VELOCITIES 

C TEP ARRAY WITH VARIOUS DESIGN VELOCITIES 

C - -- 

DIMENSION PCOST(l) , TER ( 1 ) ,DEVC$T(20» ,TITLF(6) ,X(201> , 

1 Y { 2 C 1 ) ,XX{ 12 > , Y Y (121 , 7 ( 8 ) 

NAMELIST / D£VEI / C 5 VCST 

DATA TITLE / 10 HECST VS. T , 1 0 HERM IN AL VE , 10 HLCCITY , 

1 10 H < S' VS. MFT , i 0 HER S /S EC , 10 H / 

WRIT-( 6, 10301 

1 CD 0 FORM U (1H1 ,5X, 26HRFFLRBISHMENT COST SUMMARY) 

DO e i = 1 ,NUM 

WPITT ( 6, 10011 TER(I) ,RCOST(I) 

5 EONTINUE 

1 C 3 1 FORMAT ( 1 H 0 , 5 X, HHOuSJGN VEl . »F 1 C . 2 ,1 OX , 1 2 HCOST <*/$R A I , 5 X , Ft 0 , 1 ) 

C WILL HAVE CHANGE Y MAX WHEN GET DATA 

YMAX - 4300000. 

CALL S °L T ( 3 » , 20 . , 1 H , TITLE > 0 * * 1 . , G . ,YMAX , 1 H » 

"0 1 ) T- 1 , 2 G 1 
X(I) - I / 2 .- .5 
1 C CONT TNUc 

YY(1) = RCOST(t) 

XX( 1 ) = TER ( 1 ) 

MU Ml = NUM ¥ 1 
YY(N ; JM* 2 ) = RCOST(MJM) 

XXCNLM+’M = TER(NUM 
no ?q T=2,NUM1 
XX(I) - TER(T-l) 

YY ( T ) = PCOST(I-i) 

2 C rONTTMlE 

W 1 IMMNI = NUM * 1 
DO 3 C T= 1 jNUMMNi 
1 ST = XX(IH) + 1 
isp - xx<t*2> 

CALL X Y 7 < XX ( I ) ,YV(I) f 7 > 

OO 33 II=IST,TS C 

Y(IT) = FV AL (2 ,X(II) ) 

CALL FPLKXUI) , Y (II) ) 

3 C PONT T Ml r 

CALL t°LT( 0 ) 

r A OO WHEN GET DEVELOPMENT COSTS O A ; T A 

ETOP 

fMO 
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erSTPLT 


RUN24 LEVEL 60-27-19 


09/04/73 


fUBPROGPAV LENGTH 
001147 

ST AT p MFnT FUNCTION ^FFPENCES 



LOCATION 

GEN TAG 

SYM T AT 

references 




STATE.i p NT 

NUMBER REFE^EKOfS 







L CO A T I O M 

GEN TAG 

SYM TAG 

REFc PENCES 





GC3 1M 

1 C 10 02 

1010 

000005 





GG1166 

C 101 07 

1001 

100114 




BLOCK NAVES A NO L r M 

5 IMS 






VARIABLE 

REF E PE MCE S 








LOCATION 

G r N TAG 

SYM TAG 

REFERENCES 





0 01224 

A0 10 01 

DEVEST 

100154 





001141 

V0QR13 

T 

0003 14 

GO 0 0 2 0 

0 G 0 0 2 4 

GOO 0 32 





003106 

0C0137 




C01146 

V0 10 21 

T I 

130122 

0 C 01 26 

0CC13F 



001145 

VO 0170 

I CO 

303113 

0001?? 




001144 

V013 17 

TST 

000112 

000120 




001143 

VC11 16 

NUHMN1 

000104 

C 0 0 1 40 




0C1142 

V33115 

MJ*1 

3J 00 66 

000073 




0 Cl 250 

A 0 CO 02 

TITLF 

3031 37 





0CA256 

*3*0 13 

X 

1000 54 





00! 100 

A00T05 

XX 

030364 

1C0174 




0 03 567 

8110 04 

Y 

NONE 





C 01 141 

V11H4 

VMAX 

0010 35 

GC004S 




0CU14 

AQ (31 06 

YY 

13 00 63 

0C3074 




001130 

«3 10 07 

7 

000115 

GC0123 



START OF 
000157 

f CN^TANTS 







START OF 

T EN D OP A o IF S 






000212 




% 




START OF 
0Q0216 

IN1T°E r TS 







F X TERN A L 

FEF£p£N^F5 







SYMBOL 

REFERENTS 






QLTPTC 

00 10 07 

0000 1C 

0010 16 

0 00 0 22 

300026 

000027 


FFLT 

1*10 41 

0 C 00 4 6 






XY7 

000116 







E\/AL 

f 0 0125 







FFLT 

31*13? 







FPL T 

110143 







STOP 

*00147 







FNP 

100151 







3C0052 
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CCS T PL T 


RUN?4 L£ VilL 60-27-19 


UNUSED CCMFILEd SPftSP 
0067*0 


39/04/73. 



RUN24 LEVEL 60-27-19 


SUBROUTINE SPNRK’i <A,n,f?) 
f 

C S U B R 0 1 TIME SPNRNC NOFMAUZEO RANDOM 

C A FOUAIS THE MEAN OF THE NORMAL CU»VE* 

C B EQUALS THE ST ANQARE DFV T AT ION OF THE CUFVE 

f P IS TH - INITIAL NUMFER INPUT ANO CONTAINS THE RANDOM 

r NNMP:R WHEN THE o£TLPN r D TO TH£ CALLING PROGRAM, 

C oamp MUST BE INITIALISE) IN THE CALLING RCITINE WITH 

r FUNCTION STATEMENT LJ* r » RANr(X> WhfR c X If ,C,T. ZERO 


0 000 0 5 

P 

= R*NR <0 .) 

000010 

1 

=P4-n» 

0C0011 

TF 

n.GT.0,5) Z=i.0-Z 

000016 

r 

= SCRT f ALOf (1, 0/ (7*7) > ) 

000025 

XM 

= 2, c 15 517 + £* (• 802 35 3 f.0 1032 0*E> 

000030 

yn 

= l.C*E-Ml.432 7’3 3*E 1 M.1892 6S4-,C013C8*E)> 

000036 

XQ 

sF-XM/XC 

000037 

IF 

(7.LT.0.5) XQ=-XQ 

000045 

p 

= a 4 . 0 * xn 

0C00A7 


0 G005G 

FMH 



09/0A/73. 


NUMBERS 
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SPNRN 1 


RUN 24 LEVEL 6 G - 2 7- 19 


09/04/7 


SUBPROGRAM LfNGTH 
000116 


STATEMENT FUNCTION 

T c FE cENtTES 


L OT AT TOM 

sen TAG 

GYM 

STATEMENT NUMBER r^ 

C E^NCFS 


LCC ft T 1 ON 

EcN TAG 

GYM 

BLOCK NANE? AND LEM 

GINS 


VARIABLE FFFFOEMC^S 



LCCATION 

GEN TAG 

GYM 

0 CU 12 

y " 0 0 05 

F 

303114 

y 3 03 07 

XO 

C 00113 

yr Gaos 

X N 

0 C 311 5 

4 9 00 10 

xa 

C 00111 

HO 10 0 4 

z 


START OF CONSTANTS 
(J f? 0 0 •=: ji 

STftRT OF 7EMPOR A° I E S 
DOOO^f! 

STftRT OF IMDTPFPTS 
030111 

EXTERNAL RE C FPENPFS 

SYMBOL UFERENCFS 

PANE 130006 

BLOG 09 00 22 

SO^T ] 0 00 24 

FKO 330052 

UNUSED COMPILER SPATE 
006700 


TAP REFERENCES 


TAG R C FEPENC£S 


TAG REFERENCES 
0 003 25 
000036 
0 00 " 32 

003042 000046 

030012 000016 000017 



6.0 SAMPLE INPUT 


P71 N° UT 1 

NUMMC = 50 C, 

NUHV r O = 3 , IXX = 3 

, IRflNF 

P7-I N PUT 2 

W 1 1 N = 0 . 


, M2IN = -1. 

, THUN 


'/ 3 T I N = G. 


, tfDTSIG = 0. 

, X L D - 


OCRNT = 1.^ 

■ib 

, V C P.M T 5 1 = .5 93 

, 


PTMH(i) = 0,0:0: ,0.3125 ,0.1250 ,0.2*125 


It 


» 


, TH2TN =0. 

» 

5 coo , 


THM1 (1) 


,71575 , ,o753C ,0.96375 ,1.0 

-1.570 79 6 ,-1.176' , 97 ,-, 785393 

. 392699 , .-735393 , 1. 1780^7 


,-.392699 ,0.0 

, 1 . 5 73 7 Q 6 l 


l«*» 


, 


C COSTS F 09 NO EXTENSION 

F 12 OS TS COST <11 = ^324F*6 

COST (6) = '.19 3£>6 


2.506^*6 , . 296E*6 ,.li3Ffft ,,05. J Ff6, 

.236E+6 5 


C COSTS FOR 

CfCOSTS COST ( 1 > 
C COS T (6 ) 

P1IUPUT3 VTOIM 
PSINPUT3 VTOIN 
P-TINPUfS VTOIM 


FXTENSI-ON 

= ,7 71F + 6 , 2 . 5C F + 6 ,.296F*6 
= .190E+6 , . 2 08 E 6 $ 

= ?1.3 , VTOSIG = 1. 365 s 

= 3C.5 , VTOSIG - 1.525 $ 

= 39.7 , vrnSIG = 1.985 7 


, .1835+6 


, . 1 C 6 E * 6 , 



7.0 SAMPLE OUTPUT 


TERMJAL DESIGN VELOCITY 21 . M r T FRS/SFC 

LOAD STATISTICS F 0-?, RAX. Sl*°n0WN-N0T USED 

MF A K C . M I f ’ I U M M 0 , M A * I MU M 0 . 

HOOP MOMENT FOR MAXIMUM SLAPDOWn 

NEAR 731 = . 63 MIMI4UM 5346,54 MAXIMUM 16435.15 

LOAD STATISTICS FOR P r A K AGCF LE RAT I ON 

MEAN 7012.51 MINIMUM 2909. 64 MAXIMUM 13C41.07 

PRESSURE CAUSTICS FOR MAXIMUM SUBMERGENCE 

HE A N 1 0.71 MI N I MUM 3.20 MAXI MU M 13.81 

PRESSURE SATISTirs FOR FORWARD SKIRT 

r ; F A U 55.65 MINIMUM 44.13 MAXIMUM 101.43 

THROAT S4TISTI0S FOR NOZZLE 

MEAN 3033.03 MINIMUM 2269.52- MAXIMUM 4205.14 

L O AD /PRESSURE S FOR AFT DOME 

MEAN 56.07 MINIMUM 67.54 MAXIMUM 110.37 

PRESSURE 3 ATI STICS FOR AFT SKIRT 

MEAN 14.96 MINIMUM .44 MAXI Mil M 44.31 
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DAMAGE 0 0 NO IT ION SUMMARY 



*]. MET'^S/Stc 
EQO MONT r CARLO 

U r f I G N tfELOOITY 
TRIALS 

DAMAGE CO NO IT I ON 

NUMDFR OF 

CCOU RRFNOEG 

PR 0-T, OF 
OrruR ^ENCE 

NO DAMAGE 

3 


STNKAbE 

5 

.0101 

2 SCGMCHT 

1 j 

. C ? d 

FORWARD S<tR T 

400 

.0<?d 

NOZZLE 

0 

o 

AFT DOME 

4*4 

dh 80 



HUMPH:.* OF LAIMCHFS F02 FACh MONTH 


JAN -- 

4? 

f FI — 

41 

NAP 

4 ? 

:\P? -- 

4? 

MAY -- 

41 

IU'1 -- 

42 

JUl -- 

4? 

AUG -- 

41 

StP — 

42 

OCT — 

4? 

NO 7 -- 

41 

OF 0 -- 

4 2 
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IMPACT AN bl *: ( J A H t A M S ) 


- . 1 3? j 

1321 

-.0990 

-.1832 

- , 'j 23 4 

- • C 0 6 C 

. 0 44 ft 

. CG29 

. 1 128 

. 1228 

MINIMUM VALUE 

1400 

MAXIMUM VALUE 

,14 0 0 

MEAN 

-.0008 

SIGMA 

. G9 40 

MEDIAN 

. con 


NINETY NINE PFPCFNT ,138ft 


F OP STEPS OF 

.05 P-maOTLITY 

-,123ft 

-.1140 

-,0G65 

1 

• 

-Jl 

. 0115 

. C28S 

, 0 8 1 j 

. 0972 

.1319 

.13 73 



HORIZONTAL IMPACT VEl DC IT Y ( 1/5) F OR STEPS OF 


05 PROBABILITY 


1.256- 

2 * 1416 

2. 7557 

7 . 26?3 

3 ,7? 4 2 

4 . C 3 7^ 

4.4671 

5. re 25 

5. 4 Co 3 

5.51 04 

6 . 1264 

6.9453 

7.4614 

6 . V 3 .16 

./}. 7566 

Q.657Q 

1Z.547? 

It. 60 54 

11.1167 

1 5. 2173 

MINIMUM VALUF 
MAXIMUM *4lUE 

. 2 2 7 
10.121T 



ME A M 
CIGNA 

MF.nr an 

ninety NINE PE 

6. 7? 61 
3. 7?G7 
5.9466 

ROE NT 15.9673 





rfCRTICAL I K r> ATT t/FLOriTV ( M / ^ > F o :> ST^PS OF . £ <5 PROBABILITY 


19.0:" 5 3 

19. F,06? 

20 . 024 j 

20 . 3145 

2 ; . 5 ?.C 5 

20 . 5°. <59 

22.5247 

2 C » 9 5 5 1 

21.07^? 

21. 2264 

21.3319 

71 , 4371 

21 .5554 

21. 75 

21*2121 

21 , 9735 

2 2 » 1 9 ^ 7 

22. 4 j 5 7 

'’2.7492 

2"». 5524 

MINIMUM VALIJF 
MAXIMUM VALUE 

17. 7? b? 
25. C? J 1 



MEAN 

SIGMA 

MEDIAN 

?1. 25 5 ) 
1. C4 SC 
21. 2735 




N I NE: T Y NI NE P f HC F NT 23.7105 



HOOP HOME Mf ON CASE (IN-L07IN)) FOR C 1"PS OF .05 PROBABILITY 


5 0b 7 

57 C 4 

5 33 3 

5? 13 

6 u4 C 

El 2 I 

625 4 

5T76 

652 B 

6 5 93 

66 66 

7G63 

1 2? G 

7446 

77R7 

6165 

3 62 C 

5^27 

1G2-1 

1 2? "6 

MINIMUM VALUE 
MAXIMUM VALUE 

5 ? 4 7 
164 3 5 



mean 

SIGMA 

MEDIAN 

NINETY NINE PERCENT 

7 52 1 
1.7 21 
6764 
127 55 





HOOP 00 MEN r CAPABILITY 


) PD.? V STr J S OF .05 PROBABILITY 


K 22 9 

117 “2 

10 991 

11145 

11234 

113 c «9 

1150 3 

115 0 3 

1170 2 

11304 

1192 7 

12041 

12137 

12212 

1 2 3 C 4 

1 2435 

12 528 

1 27 C l 

1238 9 

1 3381 

MINIMUM VALUE 

MAXIMUM VALUE 

9733 
14? IT 



MEAN 

SIGMA 

MFDIAN 

ninety nine prpcFNT 

118 51 
751 
118 55 
1 3473 





Tt: Rill A L DIE SI ON VELOCITY 30 


McTE** 7SFC 


LOAD STATISTICS F 0? MAX . S La PDOWN- NOT 
mean r. mixi iuu 


JSED 

. MAXIMA 


o . 


HOOP MOMENT FOR MAXIMUM SLAPROWN 

MEAN 7417.00 MINIMUM 5367,3? MAXIMUM 


15761 .54 


LOAD SI AT I S 71 OS FDR PEAK ACCFLF RA T IOU 


MEAN 1??C8.57 MINIUM 

PRESSURE CAUSTICS FOR MaYIMU M 
M F A N 13. 23 MlNT'-l'M 

PRESSURE SATIS! ICS FOR FORWARD 
ME A N 55.11 MINIMUM 

THROAT SA TI ST ICS FOR N3Z7LP 

KEArJ 4 3 2C.65 MIUr'UM 

L OA D/P XFS5URF S FOR AFT DOME 

MEAN 136.73 MINIMUM 


576?. 46 

MAXIMUM 

?. 3 6 3 1 . 1 7 

SUPUCRSE MCF 

3.45 

MAXI MUM 

1 ^ . 0 3 

SKIRT 

43.94 

MAXI MJK 

1 j ? . F 3 

3544.13 

MAXI MUM 

6 743.5? 

1C1. 77 

MAXIMUM 

1 8 6 « 5 6 


PRESSURE SATISTICS FOR AFT SKIRT 
MEAN £.71 MINIMUM 


MAXI MUM 


35.34 



DAMAGE CONDITIO* SUMMARY 



1C 

MFTERS/SEC 
HCNT E CARLO 

DESIGN VELOCITY 
trials 

DAMAGE CON") IT ION 


NUMBER of 
OCCURRENCES 

P n O f >. OF 
OOCUR JEMCE 

NO DAMAGE 


n 

p 

SINKAGE 


1 

. C 0 6 1 

2 SEGMENT 


IB 

.0^60 

FORWARD SKIRT 


497 

.9941 

NOZZLE 


1 

. 0 ??? 

AFT DONE 


4 9 7 

.9°4 ] 

AFT SKIRT 


0 

0 



NUMBER 0 F LA ’.JNOHES FOR F A OH MONTH 


J AN -- 

4 2 

FEB — 

41 

MAR -- 

42 

4 OR -- 

4 2 

HAY -- 

41 

JUM -- 

4? 

JUL -- 

42 

Aur, -- 

41 

SEP -- 

42 

OCT -- 

42 

NOV -- 

41 

ore -- 

4? 
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VERTICAL IMPACT VFLOriiy ( M/C ) STEP? OF 


2 b PROBABILITY 


27. 5 29 5 

23. 3589 

2 3.7373 

2 9 . 1 1 1 9 

29.4221 

29.6422 

?9.?677 

33. 0658 

3C. 2455 

3G . 42 7 7 

30*6393 

3 L • 8 651 

3 t . 0 96 4 

31 . 3293 

31.5151 

31.7459 

3 2 . 0 22 7 

-32. 7 721 

7 2. 7o43 

33.3193 

MINIMUM VALUE 
MAXIMUM VALUE 

25. 5649 
74.5633 



MEAN 

SIGMA 

MEDIAN 

3 j . c 3 1 9 
1. 5394 
?£. 52 54 




NINETY MINC PERCENT 34.1992 



HOOP MO HE MT On CASE (IN-L9/JN)) F O'? FT F p $ OF 


3 5 PROSflUILir Y 


5 55 C 

c 7 1 1 

5 3 3 0 

59 70 

6 0 7 7 

6190 

5316 

647 7 

0 65 4 

67 93 

639 3 

7171 

737 5 

757* 

7^57 

33 47 

& 9 3 4 

94 n 7 

10 4 0 6 

1 ?6 ?2 

MI MI SUM VALUE 
MAXIMUM VALUE 

53 6? 
1 5760 



MEAN 

SIGMA 

MEDIAN 

NINETY NINE PERCENT 

7417 
17 75 
63 75 
1 7267 





HOOP MOMENT C API Ml IT Y 


) FOP ST t PS OF .n$ PPORflOILITY 


1 3 35 0 

12 5 66 

113 6 2 

1 1106 

11 3b <4 

11451 

1 1 5b 5 

1 162 7 

11 "11 

11*03 

1 1 ' 5 3 4 

120 72 

12 17 0 

1 22 4? 

1 2 7 3 1 

12423 

12511 

126 76 

l?iP 7 

1 33 11 

MINIMUM VALUE 

96^7 



MAXIMUM VALUE 

1 AC 1-3 



MEAN 

11 3 06 



SIGMA 

710 



FDIAM 

11045 




NINETY NIUE PEROFMT 174 77 



TERMIA L Oh' ‘li I G N VELOCITY 


ME T ■ 


LOAD STATISTICS FOR MfiX. slapoown-not 
mean G. MINIMUM 


USED 

. MAXI fij M 


HOOP MOMENT FOR MAXIMUM SLAOOONN 

MEAN 72' 53.5) 0 I ■! I MUM ~3 r ;?,b<* A A X I MU * 17156.3? 

LOAD STATISTICS FOR PFAK ACCF LFR A TICK 

MEAN 2126 1.03 * IN l MU* 7571. 3 T MAXIMUM 42222.8C 

PRESSURE SATI STICS FOR MAXIMUM $u~ M E ROE NC c 

MEAN IF . 52 MINIMUM 4.7G MAXIMUM 25.15 


PRESSURE SATISTTOS FOR FORWARD SKIRT 


MEAN 54,55 

minimum 

AT. 55 

MAXI MJ* 

1 C 2 . 5 1 

THROAT- SATISTICS FOR N3Z7LE 



‘ 

MEAN 7111.87 

MINIMUM 

4725.61 

MAXI HUM 

5532.54 

LOAO/PRESSUKES FOR AFT 

DOME 




MEAN 20?. 3D 

MINIMUM 

1 4 T , 75 

M AXI NU M 

26^.25 

PRESSURE SATISTICS FOR 

AFT SKIRT 




MEAN 2.65 

MINIMUM 

I . 

MAXI MUM 

26.55 
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0 A '1 A Ct CONDITION SUMMARY 


40 MFTE'^/SEC DESIGN VELOCITY 
50-1 MONTE CARLO TRIALS 


DAMAGE GO MO I T ION 

MU MGER or 

occurrences 

° >90 . OF 
OCCIJORENCE 

NO DAMAGE 

0 

0 

StNKAGF 

5 

.0 10*? 

2 SEGMENT 

1.4 

.0?S J 

FORWARD 3 K I R T 

495 

.090} 

NOZZLE 

140 

.2509 

AFT DOME 

495 

. 9 9 l}n 

AFT SKIRT 

0 

0 



NUMBf.K OF L A '..I MG HF 5 EACH MONTH 


JAN -- 

43 

FE*3 -- 

41 

m n ?, - - 

4? 

A D R -- 

4? 

MAY -- 

41 

JUN — 

4? 

JUL -- 

4? 

AIJG -- 

41 

Sr-P -- 

42 

OCT -- 

42 

NOV >- 

41 

pc p _ 

42 
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0 5 PROBABILITY 


VERTICAL IMPACT VELOCITY M/S) = MFPS 3r , 


35. 8 64 7 

3 6 . ° 7 3 1 

7 7.6247 

38.3364 

33.9642 

3 3 o 3 1 C 3 

39.2 93 7 

33. 6149 

7 9. 959 3 

4 G . 5 C : 6 

42.6941 

4 9.4577 

41.631: 

42.0337 

4 7 . 7116 

MINI HU ‘I /ALU r 
MAXIMUM VlLUf 

3 4, 6911 
47. 3*M6 


ME AM 
SIGMA 
M L 9 1 A N 

7 9. ■*l°-3 
1. 9 9 7 4 
7 9. 774 3 



NINtTY MIKE PERCE MT 44.7699 


3 7. ■•55P6 
7 9. 1 2 70 
4 i . 26 77 
41. 3129 
44 . 91 0 3 



HOOP MOM^T ON CAGE (IN-IG/TM)) FC^ GTFDS of .DC PROPA3TLITY 


5 52 3 

c -7?6 

5655 

5366 

6075 

61 /’} 

6 556 

64 34 

6 515 

66 6 5 

6 -, c L 

7100 

7 34 3 

75 66 

7 : 2 0 

37C^ 

6 36 ? 

0410 

1C? 24 

1 ’915 

MINIMUM VALUE 

6303 



MAXIMUM VALUE 

17157 



mean 

7314 



SIGMA 

16 14 



MEDIAN 

F76S 




NINETY NINE PERCENT 14056 



hoop fOMt't-r caoanuiTv 


) ?r<i STEPS OP .CO PROBABILITY 


1C 50 7 

1 C 3 6 5 

11 3 f 3 

1 1229 

11 359 

.11455 

11553 

1 16^6 

11772 

lie 63 

11 1 T 4 

1 2040 

12145 

12246 

12347 

1 2447 

12f.CC 

1 7 7 6 4 

1 2 J 36 

1 3 3 .3 3 


MINIMU 1 

'VALUE 

9 A3 3 

MAX I HU i* 

V 4 L U E 

13921 

MEAN 


119 0 3 

SIGhA 


7 07 

MEDIAN 


1 1 8 3 6 

NINETY HI HE PCRCFNT 

1 3457 



SEFUP3ISH?1ENT COST SUMMARY 


DESIGN 

VEL. 

21.3 C 

COST 

Ct/SRS) 

12 11 S3 J. G 

DESIGN 

VEL . 

30. 5 G 

COST 

( S/SRP) 

17 1S62 6. C 

DESIGN 

‘JEL. 

3 9.70 

COST 

(S/SR3) 

123AG18.G 
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